Socket Stream / Text????

[Mister F.H.]

Hi Leute!

Arbeite mit TClientsocket bzw. TServerSocket.

Führe Prozedur OnClientRead aus

Wie kann ich da feststelle, ob ein Text (String) oder
ein Stream / Buffer ankommt??

Ich will nämlich rausbekommen, ob ich da mit receivetext
bzw. receive buf / receive length arbeiten muss!

Wäre nett, wenn ihr mir helfen könntet

mfg

F.H.

[Johann Gysin]

Hallo F.H.

ich weiss nicht ob Dir das hilft; SendText stellt die Anzahl versendeter Zeichen als Rückgabewert zur Verfügung. Du kannst sowas in Dein Programm einbauen:

procedure TF_Main.NetSendLine(Connection: integer; Str: string);

var
SendeBuffer : string;
AnzahlGesendet : integer;

begin
SendeBuffer := Str + #13#10;

while length(SendeBuffer) > 0 do begin
AnzahlGesendet := F_Main.ServerSocket1.Socket.Connections[Connection].SendText(SendeBuffer);
delete(SendeBuffer, 1, AnzahlGesendet);
end;
end

[Johann Gysin]

ui, die Textformatierung ging voll daneben, sorry

[Johann Gysin]

Hallo F.H.

ich weiss nicht ob Dir das hilft; SendText stellt die Anzahl versendeter Zeichen als Rückgabewert zur Verfügung. Du kannst sowas in Dein Programm einbauen:
<pre>
procedure TF_Main.NetSendLine(Connection: integer; Str: string);

var
SendeBuffer : string;
AnzahlGesendet : integer;

begin
SendeBuffer := Str + #13#10;

while length(SendeBuffer) > 0 do begin
AnzahlGesendet := F_Main.ServerSocket1.Socket.Connections[Connection].SendText(SendeBuffer);
delete(SendeBuffer, 1, AnzahlGesendet);
end;
end;
</pre&gt