Also, ich hab jetzt alles fertig, nur funktioniert das mit dem OnRead nicht, ich kann wohl etwas an den Server senden, ich weiss zwar nicht ob wirklich was gesendet wird, aber da ich keine Fehlermeldung sehe glaub ich schon, aber die Antwort wird nicht angezeigt. Hier nochmal mein Code:
Delphi-Quellcode:
{ Connecten, sowie selserver und login }
procedure TForm1.Button1Click(Sender: TObject);
var
loginstring, selserver: String;
begin
selserver := 'sel '+Edit6.Text;
loginstring := 'login '+Edit1.Text+' '+Edit2.Text;
sock := TClientSocket.Create(nil);
sock.Host := Edit3.Text;
sock.Port := Strtoint(Edit4.Text);
try sock.Open except
Showmessage('Verbindung fehlgeschlagen!'); end;
sock.Socket.SendText(selserver);
Sock.Socket.SendText(loginstring);
end;
{ OnRead Event }
procedure TForm1.sockRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
{ Einzelner Befehl aus Edit5 senden }
procedure TForm1.Button2Click(Sender: TObject);
var
command: String;
begin
command := Edit5.Text;
sock.Socket.SendText(command);
end;
end.