Einzelnen Beitrag anzeigen

Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#1

Upload mit IdHTTP in Thread führt immer zu Exception

  Alt 22. Jun 2007, 22:39
Hallo,
ich habe in meinem Programm den Upload per IdHTTP in einen Thread verfrachtet. Vorher lief das ganze problemlos. Jetzt wird nach dem Upload (Datei kommt komplett auf dem Server an, PHP-Datei meldet Erfolg) jedes Mal der Exception-Teil des try-except-Blocks durchlaufen. Wenn ich ihn entferne, wird die nächste Zeile trotzdem nicht ausgeführt, es erscheint aber auch keine Meldung.
Hier der relevante Code (gekürzt):

Delphi-Quellcode:
procedure TUploadThread.Execute;

var
  Stream: TMsMultiPartFormDataStream;
  AW, DUDatei: String;
  DNr, ZF: Cardinal;

begin
  IdHTTPC := TIdHTTP.Create(nil);
  with IdHTTPC do
  begin
    Name := 'IdHTTPC';
    OnWork := IdHTTPWork;
    OnWorkBegin := IdHTTPWorkBegin;
    OnWorkEnd := IdHTTPWorkEnd;

    AuthRetries := 0;
    AuthProxyRetries := 0;
    AllowCookies := False;
    ProxyParams.BasicAuthentication := False;
    ProxyParams.ProxyPort := 0;
    Request.ContentLength := -1;
    Request.ContentRangeEnd := 0;
    Request.ContentRangeStart := 0;
    Request.ContentRangeInstanceLength := 0;
    Request.Accept := 'text/html, */*';
    Request.BasicAuthentication := False;
    Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)';
    HTTPOptions := [hoForceEncodeParams];
  end;
  // ...
  for DNr := 0 to Pred(DZahl) do
  begin
    // ...
    Stream := TMsMultiPartFormDataStream.Create;
    try
      // ...
      Stream.AddFile(DDateiFeld, DUDatei, '');
      IdHTTPC.Request.ContentType := Stream.RequestContentType;
      Stream.PrepareStreamForDispatch;
      Stream.Position := 0;

      try
        AW := IdHTTPC.Post(DURL, Stream);
      except
        // Fehlerbehandlung, kommt immer
      end;
      LogToAdd := ' > Erfolgreich.';
      Synchronize(SetLog);
      // Normalfall, kommt aber nie
    finally
      // ...
      FreeAndNil(Stream);
    end;
  end;

  FreeAndNil(IdHTTPC);
  // ...
end;
Der TMsMultiPartFormDataStream stammt auch hier aus der DP, habe aber auf die Schnelle das Topic nicht mehr gefunden.
Meine Frage ist jetzt natürlich: Warum wird immer die Exception ausgelöst?

Danke,
ManuMF
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat