Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.658 Beiträge
Delphi 12 Athens
|
AW: Funktionsaufruf aus C-dll mit Access Violation
10. Dez 2010, 12:39
Und mit explizitem Cast?
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
VAR
RetCode : LONGINT;
User : STRING = 'user';
PWD : STRING = 'password';
ToolName : STRING = 'M1ComTest';
begin
// Target Connect
RetCode := TARGET_Connect ( MyTarget, PChar(User), PChar(PWD), PChar(ToolName) );
Label3.Caption := 'ReturnCode : ' + IntToStr ( RetCode );
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|