Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#8

Re: 1 Datei und 2 Prozesse ...

  Alt 10. Mär 2009, 10:46
Hallo,

mal der Versuch einer "schmutzigen" Lösung:
Delphi-Quellcode:
Var
     iError : Integer;
     ms : TFileStream;
     bOk : Boolean;
begin
...
  ms := TMemoryStream.Create;
  iError := 0;
  bOk := False;
  Repeat
    try
      ms.LoadFromFile('Dateiname');
      Response.ContentType := 'image/jpeg';
      Response.SendStream(ms);
      Response.SendResponse;
      bOk := True;
    except
      inc(iError);
      Sleep(500); // probieren, wie lange dauert das Erstellen der Datei gewöhnlich?
    end;
  until bOk or (iError > 3);
  ms.Free;
  if Not bOk then begin
    Fehlerbehandlung...
  end;
...
end;
  Mit Zitat antworten Zitat