TIdMultipartFormDataStream; Bild via post übertragen

[Klaus01]

Zitat:

Zitat von DaveRidge

Ich hol mir gleich vom Kumpel die 2009er version.

?????

[DaveRidge]

Zitat:

Zitat von Klaus01

Zitat:

Zitat von DaveRidge

Ich hol mir gleich vom Kumpel die 2009er version.

?????

Ja, Delphi 2009. Er hat sie sich gestern gekauft

[Klaus01]

Zitat:

Zitat von DaveRidge

Zitat:

Zitat von Klaus01

Zitat:

Zitat von DaveRidge

Ich hol mir gleich vom Kumpel die 2009er version.

?????

Ja, Delphi 2009. Er hat sie sich gestern gekauft

Ja, er hat sie sich gekauft.
Wenn das eine Version ist die jeder installieren darf, hätte ich sie auch gerne.

Grüße
Klaus

[DaveRidge]

Man kann sie sich installieren und dann testen. Ist dann eine Demo version.

Ich werd erstmal schau wie die ist. Ich brauch so oder so mal eine neue Version Delphi 6 ist ja schon etwas älter

MfG Dave

[DaveRidge]

Also ich hab mit Delphi2009 jetzt zwar die Postmethode hinbekommen, nur der Upload will noch nicht.
Der code:

Delphi-Quellcode:

var
//  stream: TIdMultipartFormDataStream;
  Input:TStringList;
  Output:TStringStream;
begin
  Input := TStringList.Create;
//if not OpenDialog1.Execute then Exit;
//ProgressBar1.Min := 0;
//  stream := TIdMultipartFormDataStream.Create;

  try
  Input.Values['user']:=Form1.Edit1.Text;
  Input.Values['passwort']:=Form1.Edit2.Text;
  Input.Values['Datei']:=; //Wie bekommw ich jetzt hier das Bild rein????
  Input.Values['mode1']:='p';
  Input.Values['mode2']:='1';
  Input.Values['mode3']:='f';
  Input.Values['schreiber']:='igge';
  Input.Values['usersbook']:='na du, wer sonst';
  Input.Values['text']:='MMh, maln Test';


//  stream1.AddFile('$bild_2=',OpenDialog1.FileName,'jpg');
  Memo1.Text:=IdHTTP1.Post('http://www.blablabl.de/php.php',Input);
finally
  stream.Free;
   end;
end;

Ist zwar ein bissel durcheinander, weil ich noch nicht weiss wie ich das ausführen soll.
Kann mir da einer helfen?