Funktionsaufruf aus C-dll mit Access Violation

[Luckie]

Deklariere TragetString als PChar oder rufe die Funktion mit @TargetString[1] auf.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR
  TargetString : STRING;
begin
  SetLength(TargetString, 255);
  MyTarget := Target_Create ( @TargetString[1], TCP, g_Timeout );
  SetLength(TargetString, StrLen(PChar(TargetString)));
  ...
end;

So würde ich es versuchen.

[RPRI]

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

[gammatester]

Da bei Shortstrings kein abschließendes #0 garantiert ist, versuch es einmal mit

Delphi-Quellcode:

  User         : STRING[255] = 'user'+#0;
  PWD          : STRING[255] = 'password'+#0;
  ToolName     : STRING[255] = 'M1ComTest+#0';

[RPRI]

Delphi-Quellcode:

  User : STRING[255] = 'user'+#0;
  PWD : STRING[255] = 'password'+#0;
  ToolName : STRING[255] = 'M1ComTest+#0';

Hat leider auch nichts gebracht.

[DeddyH]

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;