Wrapper組件是一個可以在vd6和C++6環(huán)境中使用的COM控件。我們可將實現(xiàn)文件.tlb添加至項目引用使應(yīng)用程序獲得新的組件功能。要想了解更多的信息和實現(xiàn)方式，你可以聯(lián)系我們獲得更多的細(xì)節(jié)。導(dǎo)出的tlb文件: VectorDraw.Serialize.tlbVectorDraw.Render.tlbVectorDraw.
Professional.tlbVectorDraw.Geometry.tlbVectorDraw.Actions.
tlbVdrawPro5.tlbvdrawi5.tlbvdPropertyGrid.tlbVdProControl.tlb

解決方案

下面的示例代碼實現(xiàn)了wrapper組件，代碼中使用一個按鈕添加了一個vdMtext對象，它完全是一個新的對象，在新庫中被實現(xiàn)而在版本5中并不存在。為實現(xiàn)該組件，我們導(dǎo)入了 VectorDraw.Geometry.tlb ,VectorDraw.Professional.tlb以及 vdrawi5.tlb

VB6示例代碼:

Private Sub Command1_Click()
'Get the document interface of VectorDraw FrameWork
Dim doc As VectorDraw_Professional.vdDocument
Set doc = VDraw1.ActiveDocument.WrapperObject
'Create a new Mtext object with VDF Interfaces
Dim mtext As VectorDraw_Professional.vdMText
Set mtext = New VectorDraw_Professional.vdMText
'typecast the Mtext as vdbaseObject
Dim baseobj As VectorDraw_Professional.vdBaseObject
Set baseobj = mtext
baseobj.SetUnRegisterDocument doc

'typecast the Mtext as vdPrimary
Dim primary As VectorDraw_Professional.vdPrimary
Set primary = mtext
primary.setDocumentDefaults
'Create a gPoint object
Dim pt As VectorDraw_Geometry.gPoint
Set pt = New VectorDraw_Geometry.gPoint
pt.SetValue 2, 3, 0

'set values in some properties of mtext
mtext.TextString = "VectorDraw Mtext using VDF Interfaces"
Set mtext.InsertionPoint = pt
mtext.BoxWidth = 12
mtext.Height = 1#
'typecast the Mtext as vdFigure
Dim fig As VectorDraw_Professional.vdFigure
Set fig = mtext

'add mtext in the collection entities table
doc.ActiveLayOut.entities.AddItem fig
primary.Update
fig.Invalidate

VDraw1.CommandAction.Zoom "e", 0, 0
End Sub

C++示例代碼:

void Cvd6WrapperDlg::OnBnClickedMtext()
{
//Get the document interface of VectorDraw FrameWork
VectorDraw_Professional::IvdDocumentPtr doc = m_vdraw.GetActiveDocument().GetWrapperObject();

//Create a new Mtext object with VectorDraw FrameWork Interfaces
VectorDraw_Professional::IvdMTextPtr mtext(__uuidof(VectorDraw_Professional::vdMText));

//typecast the Mtext as vdbaseObject
VectorDraw_Professional::IvdBaseObjectPtr baseobj = (VectorDraw_Professional::IvdBaseObjectPtr)mtext;
baseobj->SetUnRegisterDocument(doc);

//typecast the Mtext as vdPrimary
VectorDraw_Professional::IvdPrimaryPtr primary = (VectorDraw_Professional::IvdPrimaryPtr)mtext;
primary->setDocumentDefaults();

//Create a gPoint object;
VectorDraw_Geometry::IgPointPtr pt(__uuidof(VectorDraw_Geometry::gPoint));
pt->SetValue(2,3,0);

//set values in some properties of mtext
mtext->PutRefInsertionPoint(pt);
mtext->PutTextString("Vectordraw Mtext using VectorDrawFramework Interfaces");
mtext->PutBoxWidth(12);
mtext->PutHeight(1.0);

//typecast the Mtext as vdFigure
VectorDraw_Professional::IvdFigurePtr figure = (VectorDraw_Professional::IvdFigurePtr)mtext;

//add mtext in the collection entities table
doc->ActiveLayOut->Entities->AddItem(figure);
primary->Update();
figure->Invalidate();
m_vdraw.GetCommandAction().Zoom(COleVariant(_T("e")),COleVariant(),COleVariant());
}

Delphi 7示例代碼:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, SHDocVw, AxCtrls, OleCtrls,
VDrawLib5_TLB, VDrawI5_TLB, VectorDraw_Professional_TLB, VectorDraw_Geometry_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
mtext : VectorDraw_Professional_TLB.IvdMText;
pt : VectorDraw_Geometry_TLB.Igpoint;
doc : VectorDraw_Professional_TLB.IvdDocument;
primary : VectorDraw_Professional_TLB.IvdPrimary;
baseobject : VectorDraw_Professional_TLB.IvdBaseObject;

begin
doc := vdrawpro.ActiveDocument.WrapperObject as VectorDraw_Professional_TLB.IvdDocument;
pt := VectorDraw_Geometry_TLB.CogPoint.Create();
pt.SetValue(2,3,0);
mtext := VectorDraw_Professional_TLB.CovdMText.Create();
baseobject := mtext as VectorDraw_Professional_TLB.IvdBaseObject;
baseobject.SetUnRegisterDocument(doc);
primary:=mtext as VectorDraw_Professional_TLB.IvdPrimary;
primary.setDocumentDefaults();
mtext.TextString := 'VectorDraw Mtext using VDF Interfaces';
mtext.InsertionPoint := pt;
mtext.BoxWidth := 12;
mtext.Height := 1;
doc.ActiveLayOut.entities.AddItem(mtext as VectorDraw_Professional_TLB.IvdFigure);
vdrawpro.CommandAction.Zoom('E',0,0);
end;

procedure TForm1.Button2Click(Sender: TObject);
var vdGPts : VectorDraw_Geometry_TLB.Igpoints;
doc : VectorDraw_Professional_TLB.IvdDocument;
primary : VectorDraw_Professional_TLB.IvdPrimary;
baseobject : VectorDraw_Professional_TLB.IvdBaseObject;
vdGPt : VectorDraw_Geometry_TLB.Igpoint;
GS : VectorDraw_Professional_TLB.IvdGroundSurface;
I : integer;

begin
vdraw1.DisplayFrames:=63;
vdraw1.StatusBar:=true;
vdraw1.StatusBarMenu:=true;
vdraw1.EnableAutoGripOn:=true;

doc := vdraw1.ActiveDocument.WrapperObject as VectorDraw_Professional_TLB.IvdDocument;

vdGPts := VectorDraw_Geometry_TLB.CogPoints.Create();
for I:=1 to 8 do // create a ground sourface from 8 points
begin
vdGPt := VectorDraw_Geometry_TLB.CogPoint.Create();
vdGPts.Add(vdGpt);
end;

vdGPTs.Item[0].SetValue(2,3,0);
vdGPTs.Item[1].SetValue(2,5,1);
vdGPTs.Item[2].SetValue(4,5,1.5);
vdGPTs.Item[3].SetValue(4,3,1);
vdGPTs.Item[4].SetValue(7,3,2);
vdGPTs.Item[5].SetValue(7,5,0.5);
vdGPTs.Item[6].SetValue(9,3,0.3);
vdGPTs.Item[7].SetValue(9,5,0.5);

GS := VectorDraw_Professional_TLB.CovdGroundSurface.Create();
baseobject := GS as VectorDraw_Professional_TLB.IvdBaseObject;
baseobject.SetUnRegisterDocument(doc);
primary:=GS as VectorDraw_Professional_TLB.IvdPrimary;
primary.setDocumentDefaults();
GS.Points := vdGPts;
GS.MeshSize := 0.1;
GS.DispMode := DisplayMode_Mesh;//DisplayMode_Triangle;
doc.ActiveLayOut.entities.AddItem(GS as VectorDraw_Professional_TLB.IvdFigure);
vdraw1.CommandAction.View3D('VISE');
vdraw1.CommandAction.Zoom('E',0,0);
end;