Hallo,
habe nun beim aufruf dieser Funktion kein Problem mehr.
Dafür beim Aufruf der nächsten
Delphi-Quellcode:
C-Funktion:
SINT32 TARGET_Connect(H_TARGET targetHandle, CHAR* user, CHAR* password, CHAR* toolName);
Delphi Prototyp:
FUNCTION TARGET_Connect ( targetHandle : H_TARGET; user, password, toolName : PChar ) : LONGINT; stdcall; external 'm1com.dll';
Aufruf:
procedure TForm1.Button2Click(Sender: TObject);
VAR
RetCode : LONGINT;
User : STRING[255] = 'user';
PWD : STRING[255] = 'password';
ToolName : STRING[255] = 'M1ComTest';
begin
// Target Connect
RetCode := TARGET_Connect ( MyTarget, @User[1], @PWD[1], @ToolName[1] );
Label3.Caption := 'ReturnCode : ' + IntToStr ( RetCode );
end;
Hier kommt wieder eine Accessviolation nicht beim Aufruf der Funktion sondern nach dem Ende von Button2Click.
Danke für Eure Hilfe.
Schöne Grüße
Rainer