Hallo an alle!
Ich habe gestern erst mit
Indy angefangen, bin also noch ganz neu.
Trotzdem hab ich ne Frage: Ich habe
Indy 10.0.52 gestern installiert und mich an den Beispiel entlanggehangelt.
Ich möchte gerne eine kleine
TCP-Verbindung aufbauen, über die nur Textnachrichten ausgetauscht werden sollen. Diese sollen dann in einer späteren Version noch interpretiert werden. Aber ich komme erst garnicht so weit, dass Nachrichten ausgetauscht werden können.
Der Server lässt sich ohne Probleme starten. Aber sobald der Client versucht zu connecten, stürtzt das Programm ab und ich habe eine Systemlast von 100%.
Am besten poste ich auch mal meinen Code... vielleicht hilft das ja!?
Server: die connect-Methode
Delphi-Quellcode:
procedure TForm1.IdTCPServerExecute(AContext: TIdContext);
var
command: String;
connected: Boolean;
begin
AContext.Connection.IOHandler.WriteLn('Hello');
connected:= true;
while connected do begin
try
command:= AContext.Connection.IOHandler.ReadLn;
AContext.Connection.IOHandler.WriteLn('>>'+command);
Label5.Caption:= command;
if (ansiUpperCase(command) = 'BYE') or (ansiUpperCase(command) = 'QUIT') then begin
AContext.Connection.Disconnect;
connected:= false;
end; { if (ansiUpperCase(line) = 'BYE') or (ansiUpperCase(line) = 'QUIT') }
except
connected:= false;
end; { try/except }
end; { do while connected }
SleepEx(1, True);
end;
Die Methode soll also einfach nur die vom Client geschickte Nachricht im Label anzeigen und an den Client zurückschicken. Mehr (erstmal) nicht.
Der Client-Code sieht wie folgt aus:
Delphi-Quellcode:
procedure TForm1.verbinde;
var text:
String;
begin
//IdTCPClient1.Host:= '192.168.1.3';
//IdTCPClient1.Port:= 6666;
try
IdTCPClient1.Connect('
127.0.0.1', 6666);
except
on E :
Exception do
begin
ShowMessage('
Fehler: ' + E.
Message);
end;
end;
{ try/except }
[pre][/pre]
try
text:= IdTCPClient1.IOHandler.ReadLn;
Label1.Caption:= text;
Form1.Caption:= '
Client: verbunden mit ' + IdTCPClient1.Host;
except
//nix...
end;
{ try/except }
end;
Wenn ich diese Methode aufrufe, steigt die Prozessorlast auf 100% und nichts geht mehr.
Beim debuggen bin ich bis zur folgenden Zeile gekommen:
Sie befindet sich in der
Indy-
Unit: IdWinSock2 Zeile 2937
Delphi-Quellcode:
function Stub_connect (const s: TSocket; const name: PSockAddr; const namelen: Integer): Integer; stdcall;
begin
FixupStub('connect', @connect); {Do not Localize}
Result := connect(s, name, namelen); //bei der Ausführung dieser Zeile stürtzt das Prgramm ab!!!
end;
Hab ich da jetzt was falsch gemacht, oder ist das vielleicht nen Bug der Version, hab gesehen, dass es eine neuere gibt. Wenn ja, wie kann ich die alte Version denn deinstallieren?
Wäre super, wenn mir jemand helfen könnte!
Vielen Dank im Voraus!
Andreas
Antwort
Zitat
Linear-Darstellung
