Prozedur warten lassen

[Sanchez]

Hallo Pseudo,
Hier mal ein ungetesteter Versuch:

Delphi-Quellcode:

function AufzurufendeFunktion: Integer;
var SockStream: TWinSocketStream; 
    Buffer: Array[0..1024] of char; 
    Request, Ergebnis: string; 
begin
  Ergebnis:= '';
  Request := 'Anfrage';
  FillChar(Buffer, sizeof(Buffer), #0);
  // Socket-Verbindung öffnen
  SockStream := TWinSocketStream.Create(ClientSocket.Socket,60000); 
  SockStream.Write(Request, Length(Request) + 1); 
  // Warten bis Ergebnis da ist
  if WaitForData(60000) then begin
    while (SockStream.Read(Buffer, SizeOf(Buffer)) <> 0) do begin 
      Ergebnis:= Ergebnis+ Buffer; 
    end; 
  end;
  SockStream.Free; 

  result := KeineAhnung;
end;

Mit den TimeOut-Zeiten kannst du ein wenig variiern. Wichtig ist, dass du den Socket auf ctBlocking einstellst und vorher verbindest.

grüße, daniel