Thema: Delphi Indy post Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Björn Ole
Björn Ole

Registriert seit: 11. Jul 2008
166 Beiträge
 
Delphi XE Professional
 
#14

Re: Indy post Problem

  Alt 21. Jul 2008, 14:36
Der folgende Code liefert mir ein korrektes Ergebnis und sollte zudem "serververträglich" sein:
Delphi-Quellcode:
var
  DataStream: TIdMultiPartFormDataStream;
  Response: string;
begin
  DataStream:=TIdMultiPartFormDataStream.Create;
    try
      IdHTTP1.Request.ContentType:='multipart/form-data';
      DataStream.AddFormField('upload','1');
      DataStream.AddFile('file','C:\test.gif','image/gif');
      Response:=IdHTTP1.Post('http://www.imagecrate.de/index.php?page=upload',DataStream);
    finally
      DataStream.Free;
    end;
end;
Ergebnis (Ausschnitt)
Code:
<tr>
<td rowspan="11" valign="top" width="170"><div align="center">[url="http://www.imagecrate.de/view.php?id=2532"][img]http://www.imagecrate.de/upload/thumb/83148_test.gif[/img][/url]
[b]83148_test.gif[/b]</div></td>
<td>
  Mit Zitat antworten Zitat