Hi,
Ich denke dein "OnConnect" erwartet eine Prozedur vom Typ TNotifyEvent. Das was du das zuweist, ist jedoch nur eine
reguläre Prozedur. In Wahrheit wird ein
Methodenzeiger erwartet. Das erreichst Du am Besten, indem Du Deine Prozedur in eine eigene Klasse packst.
Delphi-Quellcode:
THandler = class(TObject)
public
procedure sockConnect(Sender: TObject; Socket: TCustomWinSocket);
end;
// ...
procedure THandler.sockConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
//code
end;
// ...
var
Handler: THandler;
begin
Handler := THandler.Create;
sock := TClientSocket.Create(nil);
sock.Address := '213.39.196.118';
sock.Port := 1234;
sock.OnConnect := Handler.sockConnect;
sock.Open;
// ...
// Handler irgendwann dann freigeben
end.
Ich hoffe das hilft Dir.
mfG
mirage228
Edit: Die Deklaration Deiner OnConnect Methode war nicht ganz korrekt.