Ich hab mal mit dem IndyClient nach den Tutorialvorlagen gebastelt.
Mehr oder weniger habe ich eigentlich nur das eine Tutorial nachgebaut, bin nicht sicher ob das reicht?
Also ich weiss leider nicht ob diese
Indy's nur zu anderen
Indy's verbinden können. Ich hab mir dann den Code angekuckt und bin davon ausgegangen das der zu allem verbinden kann.
Hier mal der code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Port := StrToInt(Edit2.text);
IdTCPClient1.Host := Edit1.text;
with IdTCPClient1 do begin
Connect;
try
ListBox1.Items.Add(ReadLn)
finally
disconnect;
end;
end;
Dann habe ich einfach mal netstat ausgeführt naja und mal wahrlos eine
IP und einen passenden Port rausgenommen und es versucht und bekomme immer einen Socket Error.
Also zweites habe ich noch nach einer Hilfe von Delphi-Forum.de
folgendes gebaut:
Delphi-Quellcode:
procedure TForm1.TcpClient1connect(Sender: TObject; Socket: TCustomWinSocket);
begin
if (CurrentClient = NIL) then begin
currentclient := Socket;
TcpClient1.RemoteHost := edit1.text;
TcpClient1.RemotePort := Edit2.text;
TcpClient1.Open;
end
else
Socket.Close;
end;
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
Data: String;
begin
Data := Socket.ReceiveText;
Memo1.Text := Data;
end;
Ob das funktioniert weiss ich nicht, da ich es nicht hinbekomme, die Proceduren zu starten.
