Picuploader für Picupload.org

[Björn Ole]

Dein erster Versuch war schon fast richtig:

Delphi-Quellcode:

uses
  IdHTTP, IdMultiPartFormData;

procedure PicUpload(BildPfad);
var
  IdHTTP: TIdHTTP;
  Stream: TIdMultiPartFormDataStream;
  slWork: TStringList;
begin
  IdHTTP:=TIdHTTP.Create;
  Stream:=TIdMultiPartFormDataStream.Create;
  slWork:=TStringList.Create;
    try
      Stream.AddFormField('upload', '');
      Stream.AddFormField('MAX_FILE_SIZE', '10485760');
      Stream.AddFormField('upload_von','computer');
      Stream.AddFile('datei', BildPfad, 'image'+StringReplace(ExtractFileExt(BildPfad),'.','/',[]));
      slWork.Text:=IdHTTP.Post('http://picupload.org/index.php', Stream);
      // in slWork.Text steht jetzt der HTML Code. Viel Spaß beim filtern :-D
    finally
      IdHTTP.Free;
      Stream.Free;
      slWork.Free;
    end;
end;