Jaja, den namen hab ich irgentwann ma von nem Kumpel bekommen weil ich ihm bei nem Virus geholfen hab(ihn zu entfernen) ud
Ich fand den ganz cool, und hab den jetzt seit ca 5 Jahren
Kommen wir zuerst zu dem Fehler den er ausspuckt, wenn ich eine Falsche
Ip eingebe(nicht existent oder kein Server drauf)
Dann sacht er mir das er einen Windows-Socket Fehler hat und nicht über die richtig zugordneten Daten verfügt,
API 'Sync Lookup'
Nun zum Code:
Erstmal der Client:
Läuft über Port 6000
Der Code wenn ich connecten will:
Delphi-Quellcode:
procedure TForm1.IpsetzenClick(Sender: TObject);
var Nachricht : string;
begin
ClientSocket1.Host:=Edit2.Text;
ClientSocket1.Active:=True;
Ipsetzen.Enabled:=False;
Edit2.Enabled:=False;
Senden.Enabled:=True;
Nachricht:=Edit3.Text+' hat den Raum betreten';
delay(500);
CLientSocket1.Socket.SendText(Nachricht);
end;
Zum Server:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var Text:string;
i : Integer;
begin
Text:=Socket.ReceiveText;
Memo1.Lines.Add(Timetostr(now)+': '+Text);
for i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin
with ServerSocket1.Socket.Connections [i] do
if (Connected) then SendText(Text);
end;
end;
Wie ihr sicherlich schon erkannt abt läuft alles Über TClientSocket und TServerSocket
gez. goodvirus