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
Sprachen und Entwicklungsumgebungen
Zitat
Baum-Darstellung
