also, ich versuche ein Bild auf
imagehigh.com hochzuladen...
wer das normal ausprobieren will, hier ein kompaktes formular:
imagehigh.com/iframe...pe=blank&size=30
der quelltext des Forms ist folgender:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| <form action="http://www.imagehigh.com/uploadgallery.php" method="post" enctype="multipart/form-data" target="_blank"> <input type="hidden" name="MAX_FILE_SIZE" value="1048576"> <input type="hidden" name="aff" value=""> <input type="hidden" name="type" value="blank"> <input type="file" class="textfield" name="fileupload[]" size="30" > <input type="submit" name="upload" value="host it!" class="textfield"> </form> |
sobald man dann da auf Upload drückt, wird das bild hochgeladen und man bekommt eine HTML-Seite wo die links draufstehen...
Das habe ich so in Delphi umgesetzt:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:
| procedure UploadFile(Filename: string); var Stream: TIdMultiPartFormDataStream; StringStream: TStringStream; begin Stream := TIdMultiPartFormDataStream.Create; StringStream := TStringStream.Create(''); try Stream.AddFormField('MAX_FILE_SIZE','1048576'); Stream.AddFormField('aff',''); Stream.AddFormField('type','blank'); Stream.AddFile('fileupload[]',Filename, 'multipart/form-data'); Form1.IdHTTP1.Post('http://www.imagehigh.com/uploadgallery.php', Stream, StringStream); sl := TStringList.Create; sl.add(StringStream.DataString); finally Stream.Free; StringStream.Free; end; end; |
allerdings will das einfach nicht funktionieren...ich bekomme den gleichen kopf und fuß der html datei wie beim upload über den browser, nur es stehen dazwischen keine Links!!
Das bild wurde aber hochgeladen, wie ich durch das OnWork der IdHTTP-Komponente herausgefunden hab...
was kann da nicht stimmen?
komisch ist der name des Files, dieses "fileupload[]"...warum sind da 2 eckige klammern?