Hier der Aufruf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
VAR
TargetString :
STRING[255];
begin
// Target Create
TargetString := PBEdit1.Text;
MyTarget := Target_Create ( @TargetString,
TCP, g_Timeout );
IF ( MyTarget <>
NIL )
THEN Label2.Caption := '
Target_Create : done'
ELSE Label2.Caption := '
Target_Create : Error ';
// Buttons
Button1.Enabled := FALSE;
Button2.Enabled := TRUE;
end;
Nach dem ich wie oben die Stringlänge ( STRING[255] ) angegeben habe, kommt keine AccessViolation mehr.
Dafür beim Aufruf der nächsten Funktion
Danke und Gruß
Rainer