探讨D7中运用.net组件的可能性

最新推荐文章于 2025-12-15 21:27:07 发布

原创最新推荐文章于 2025-12-15 21:27:07 发布 · 517 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#.net #assembly

D7 专栏收录该内容

8 篇文章

订阅专栏

本文探讨了如何在D7环境中利用.NET组件，以microsoft.sqlserver.types.dll为例，展示了如何导入并使用.NET Assembly文件形成类声明，涉及属性、域成员的引用与操作。

以microsoft.sqlserver.types.dll为例探讨下D7中运用.net组件的可能性。

ModelMaker 可以导入.net Assembly文件，形成一个类声明，未包含属性与域成员。

以下代码号称可以引用：

uses Variants, COMOBJ, OleCtnrs, Activex;

procedure TForm1.Button1Click(Sender: TObject);
var
SharpObject: Variant; //olevariant
TestValue: string;
begin
try
try 
SharpObject := CreateOleObject('CSharpServer.SharpObject');
TestValue := SharpObject.DecryptTripleDES(Edit1.Text);
Edit2.Text :=TestValue;
except
on e: exception do
begin
ShowMessage(e.Message);
end;
end;
finally
SharpObject := Unassigned;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
SharpObject: Variant;
TestValue: string;
begin
try
try 
SharpObject := CreateOleObject('CSharpServer.SharpObject');
TestValue := SharpObject.EncryptTripleDES(Edit2.Text);
Edit1.Text :=TestValue;
except
on e: exception do
begin
ShowMessage(e.Message);
end;
end;
finally
SharpObject := Unassigned;
end;
end;

initialization
CoInitialize(nil);

finalization
CoUninitialize;

end.