also ich wollte mir für duckload.com n kleines proggie basteln, um via drag&drop meine sachen hochzuladen.
die anmeldung funktioniert schonmal bestens (danke an die helfer
). jedoch haut der upload nicht hin.
user: 123456123456
pass: 123456123456
Delphi-Quellcode:
procedure TForm1.uploadClick(Sender: TObject);
var
MultiPartFormDataStream: TMsMultiPartFormDataStream;
Response:
String;
begin
MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;
// Objekte instanzieren
try
// Content-Type bestimmen
idhttp1.Request.ContentType := MultiPartFormDataStream.RequestContentType;
// Formular-Felder setzen, die keine Dateien sein sollen
MultiPartFormDataStream.AddFormField('
', '
');
// ...
// Datei laden
MultiPartFormDataStream.AddFile('
upload', '
c:\clock.avi', '
');
// diese Methode muss _vor_ dem Senden augerufen werden
MultiPartFormDataStream.PrepareStreamForDispatch;
MultiPartFormDataStream.Position := 0;
try
// Anfrage abschicken, hier halt z.B. "deine" PHP-Datei hinsetzen
Response := idhttp1.Post(s, MultiPartFormDataStream);
// in der variablen 's' steht die url, wohin hochgeladen werden soll,da sich die url ändert
except
// Upload fehlgeschlagen, entsprechend reagieren
end;
finally
MultiPartFormDataStream.Free;
end;
end;
kann einer helfen und sagen, wo der fehler liegt ?