Hallo miteinander
Im Moment schlage ich mich mit Delphi 8 um...
Habe versucht eine Simple DLL in der .NET umgebung im Delphi 8 zu erstellen. Diese sieht folgendermassen aus:
( den Code habe ich von einer WebSite gefunden)
library Library1;
{$UNSAFECODE ON}
{%DelphiDotNetAssemblyCompiler 'c:\program files\common files\borland shared\bds\shared assemblies\2.0\Borland.Delphi.dll'}
uses
SysUtils,
Classes,
System.Reflection;
[assembly: information..}
function D8NET_UserName: String;
begin
Result := Environment.UserName;
end;
function D8NET_DomainName(): String;
begin
Result := Environment.MachineName;
end;
exports
D8NET_UserName, D8NET_DomainName;
begin
end.
Wenn ich die DLL in einem Delphi 7 Projekt einbinde, funktioniert es einwandfrei.
Sobald ich jedoch einen Parameter übergeben will (function D8NET_DomainName(Test : String) : String)
dann erhalte ich einen leeren String zurück und es wird eine Exception ausgelöst?!?
Kann mir jemand weiterhelfen?
Gruss
Stefano
Im Moment schlage ich mich mit Delphi 8 um...
Habe versucht eine Simple DLL in der .NET umgebung im Delphi 8 zu erstellen. Diese sieht folgendermassen aus:
( den Code habe ich von einer WebSite gefunden)
library Library1;
{$UNSAFECODE ON}
{%DelphiDotNetAssemblyCompiler 'c:\program files\common files\borland shared\bds\shared assemblies\2.0\Borland.Delphi.dll'}
uses
SysUtils,
Classes,
System.Reflection;
[assembly: information..}
function D8NET_UserName: String;
begin
Result := Environment.UserName;
end;
function D8NET_DomainName(): String;
begin
Result := Environment.MachineName;
end;
exports
D8NET_UserName, D8NET_DomainName;
begin
end.
Wenn ich die DLL in einem Delphi 7 Projekt einbinde, funktioniert es einwandfrei.
Sobald ich jedoch einen Parameter übergeben will (function D8NET_DomainName(Test : String) : String)
dann erhalte ich einen leeren String zurück und es wird eine Exception ausgelöst?!?
Kann mir jemand weiterhelfen?
Gruss
Stefano
Comment