TCP PHP und nu auch noch Delphi

[Corelgott]

Zitat von WIN-MANww:

Delphi-Quellcode:

var
 command: String;
begin
 command := Edit1.Text;
 sock.Socket.SendText(command);
 Memo1.Lines.Add(sock.Socket.ReceiveText);

Wenn ich nun ein Kommando eingebe, egal welches, dann Steht in der Memo1 [TS] was ja beim connecten auf einen Teamspeak Telnet Server immer am Anfang steht, aber das OK für ein Kommando wie sel 8767 bekomme ich nicht und auch kein ERROR.

ist ja recht klar...

also du schickst dem server ein kommando:

sock.Socket.SendText(command); aber verlangst dann sofort, dass er eine antwort für dich parat hat... aber der braucht erst mal ein paar millisecs um was zurück zu schicken...
macht aber nix, da ein socket ein onRead-Event hat.. ein event dass dann auftritt, wenn er daten wieder bekommt... versuch mal so watt...

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(sock.Socket.ReceiveText);
end;

das event macht dir delphi automatisch wenn du es im oi doppelt anklickst...
falls du das ned willst / weisst oder was auch immer kannst du das auch zur runtime binden:

Delphi-Quellcode:

procedure read(Sender : TObject; Socket : TCustomWinSocket);
begin
  Memo1.Lines.Add(sock.Socket.ReceiveText);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1.OnRead := read;
end;

hoffe das hilf ein wenig ^^

cya
Corelgott