CGI mit Delphi

[thkerkmann]

Hi,
ich benutze für CGI-Programme, die wieder selber eine Kommunikation aufnehmen müssen Synapse.
Das ist eine Bibliothek für blockierende Sockets.
Und dann hab ich mir folgende Funktion dafür gebastelt:

Delphi-Quellcode:

function RequestReply(const sRequest, Port: string): string;
var
  Sock: tBlockSocket;
begin
  result := '';
  Sock := tTCPBlockSocket.Create;

  Sock.Connect(sServer, Port);
  if Sock.LastError = 0 then
  begin
    if sock.CanWrite(2000) then
    begin
      Sock.SendString(sRequest);
      if Sock.LastError = 0 then
        result := Sock.RecvTerminated(10000, #13);
    end;
  end;
  Sock.CloseSocket;
  Sock.Free;
end;

Gruss