oh danke für den link, diese sammlung an demos kannte ich nun noch nicht,
was mich bei dem aufbau der seite allerdings auch nicht verwundert
ich hab nun mit dem beispiel aus /BasicClientServer/Client rumprobiert,
das verbinden zu meinem
pop3 server z.b. macht hier nun kein problem,
aber wenn ich versuche zu einem proxy server zu verbinden oder
zu einem http server oder einem chatserver dann streigt die demo völlig,
laut meinem packetsniffer wird die verbindung zum Server zwar geöffnet,
aber es werden keine wirklichen Daten übertragen
Code:
procedure TfrmMain.btnConnectClick(Sender: TObject);
var
LString : String;
begin
lbCommunication.Items.Clear;
with IdTCPClient do
begin
Host := edtHost.Text;
Port := StrToint(edtPort.Text);
try
Connect; // add a timeout here if you wish, eg: Connect(3000) = timeout after 3 seconds.
WriteLn('test');
btnConnect.Enabled := false;
btnDisconnect.Enabled := true;
except
on E :
Exception do
begin
LockControls(True);
ShowMessage(E.Message);
end;
end;
end;
end;
Das WriteLn('test'); wird z.B. gar nicht mehr gesendet, auch scheint
das Programm gar nicht zu realisieren das es überhaupt verbunden ist.
So werden die Buttons Connect/Disconnect auch nicht de/aktiviert.
Das Problem scheint also bei try Connect zu liegen.
Kann ich ehrlich gesagt nicht wirklich nachvollziehen.
Ein PHP Script das ich zum Verbinden der selben
Server nutze funktioniert ohne Probleme.