Chat (IP)

[Schnittcher]

Hat keiner eine Idee?

[Angel4585]

Also was ist aktuell genau das Problem?

Der ServerSocket lässt sich nicht starten?
Was für Einstellungen hast du denn angegeben für Host, Port etc?

[Schnittcher]

Nein, das Problem ist im Anhang.
Es kommt kein Text an sondern nur Zeichen.

[Angel4585]

Arbeitest du mit blockierenden oder nichtblockierenden Sockets?

[luke2]

Zitat von Schnittcher:

Es kommt kein Text an sondern nur Zeichen.

Ich kenne das. Hast du zufällig D2009? Dann liegt es am Unicode. ReceiveText() kommt damit nicht zurecht, du musst die Daten mit ReceiveBuf() in einen AnsiString schreiben.

[Schnittcher]

Kannst du mir das mal als Beispiel in meinem Code zeigen?

Gruß,
Schnittcher

[Schnittcher]

*Push*

[luke2]

Zitat von Schnittcher:

Kannst du mir das mal als Beispiel in meinem Code zeigen?

[ungetestet]

Delphi-Quellcode:

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s:ansistring;
begin
  setlength(s,socket.receivelength);
  socket.receivebuf(s[1],socket.receivelength);
  memo1.lines.add(s);
end;

aber damit geht es auch mit D2009 und Unicode.

[Schnittcher]

Hallo,

danke jetzt kommt es beim Server an aber beim Client nicht.