Ich greif mal dieses Schnipsel aus deinem Code raus:
Delphi-Quellcode:
try
idHTTP.Request.ContentType := 'multipart/form-data';
Stream.AddFile('rsdffile', 'D:\test.rsdf', 'multipart/form-data');
httpAnswer := idHTTP.Post('http://wirpo032.bplaced.net/rsdf/rsdf_decrypt.php', Stream);
sleep(5);
except
ShowMessage('Error parsing RSDF-File!');
end;
Deine Fehlerbehandlung ist total falsch.
Ganz egal welcher Fehler auftritt (Server nicht erreichbar, keine Verbindung in Internet, Objekt(e) sind nil,Laufwerk D: nicht vorhanden, ...) es wird immer nur die gleiche nichtssagende Meldung angezeigt.
Aber es kommt noch schlimmer: das Programm läuft weiter, obwohl die Eingabedaten fehlen.
Da wäre es besser man hätte try...except ganz weggelassen.
So sähe eine richtige Fehlerbehandlung aus:
Delphi-Quellcode:
try
url := '
http://wirpo032.bplaced.net/rsdf/rsdf_decrypt.php';
idHTTP.Request.ContentType := '
multipart/form-data';
Stream.AddFile('
rsdffile', '
D:\test.rsdf', '
multipart/form-data');
httpAnswer := idHTTP.Post(
url, Stream);
sleep(5);
except
on E:
Exception do
begin
E.
Message := '
Error parsing RSDF-File!'#13#10+
url +#13#10 + E.
Message;
raise;
end;
end;