Hallo Leute ich bins nochmal,
ich bin nun zu einen seltsamen Problem gekommen. Die verbindung zum Server steht allerdings kann der Server mit einer
Indy-client-komponente antworten senden.
Beim Connect bekomm ich einen Sockel #10049 fehler.
Delphi-Quellcode:
procedure antwortsendenId(client: TidTcpclient; antwort:TIdentifikationAntwort;
ip:
string);
begin
with client
do
begin
Port:= 6667;
BoundIP:=
ip;
Connect;
try
client.WriteSmallInt(3);
client.WriteBuffer(antwort,sizeof(TIdentifikationAntwort));
finally
If(antwort.userid = 0)
or (antwort.nicvergeben = true)
then
Disconnect;
end;
end;
end;
Dazu ist zu sagen, das der client(TidTcpclient) in einen anderen Unterprogramm zugewiesen wurde.
Desweiteren finde ich es sehr seltsam, das ich bei meinen Client.exe die Client-Komponenten mit einem activate setzten kann, beim Server nicht:
Delphi-Quellcode:
with Formhintergrund.IdTCPClient1 do
begin
Activate;
Host:= EditIPaddresse.Text;
Port:= 6666;
end;
....
Hoffe sirius oder andere können mir helfen
mfg
Lukas