Hallo!
Ich habe eine Frage an euch:
Ich habe mir jetzt mit dem Indykomponent ein kleines UploadSkript zusammengebastelt, funktioniert auch super!
Jedoch merke ich nun mit WorkBegin, WorkEnd und OnWork plötzlich, dass der IdHTTP.Post zwei mal ausgeführt wird.
Nun fragt sich warum und wie kann man das unterbinden?
Hier der Quellcode:
Delphi-Quellcode:
//Prozedur SENDFILE
procedure TForm1.sendfile(filename:
string);
var
data: TIdMultiPartFormDataStream;
res :
string;
begin
data := TIdMultiPartFormDataStream.Create;
try
data.AddFormField('
dateiname', filename);
data.AddFile('
datei', filename, GetMIMETypeFromFile(filename));
data.Position :=0;
Memo1.Text := IdHTTP1.Post('
URL', data);
except
showMessage('
Beim Upload trat ein Fehler auf! Es konnte keine Verbinung zum Server hergestellt werden!');
end;
end;
Hoffe ihr könnt da helfen, danke schonmal!
Line5