Ich habe die Procedure jetzt umgeschrieben so dass ich das Ergebniss in einer memo-box angezeigt bekomme und habe die gefundenen fehler berichtigt. Nun bleibt das programm zwar nicht mehr hängen, aber ich bekomme auch nichts angezeigt bzw nicht alles was ich wil. Und ich weiss nun echt nimmer wo der Fehler stecken könnte.
Delphi-Quellcode:
procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
t:string;
temp, position:integer;
begin
t:=ClientSocket.Socket.ReceiveText();
ReceiveBuffer := ReceiveBuffer + t;
//position := pos(#10, ReceiveBuffer);
while ( pos(#10, ReceiveBuffer) > 0 ) do begin
temp := pos(ReceiveBuffer, #10);
If temp > 1 Then begin
//NeuerBefehl (leftstr(ReceiveBuffer, temp+1));
form1.memo_incomeing.Lines.Add(leftstr(ReceiveBuffer, temp -1));
end;
ReceiveBuffer := MidStr(ReceiveBuffer,1 , temp+2);
end;
end;
Kann mir denn keiner die VB Function in Delphi "umschreiben" oder mir wenigstens deffinitive sagen, was ich falsch mache?