idhttp post

[gekmihesg]

Delphi-Quellcode:

function TForm1.post(param: string): string;
var
  data: TStringList;
  s: string;
begin
  data:=TStringList.Create;
  data.Add('wrkdir='+wrkdir.Caption);
  data.Add(param);
  s:=idhttp1.Post(url.Text,data);
  data.Free;
  if cfe(s) then
    result:=s
  else
    result:='';
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  DataStream: TIdMultiPartFormDataStream;
  i:integer;
begin
  DataStream:=TIdMultiPartFormDataStream.Create;
  DataStream.AddFormField('pwd',pwd.Text);
  DataStream.AddFormField('wrkdir',wrkdir.Caption);
  DataStream.AddFormField('upload','1');
  for i:=0 to listview2.Items.Count-1 do
    DataStream.AddFile('file_'+inttostr(i),listview2.Items.Item[i].SubItems.Strings[2],'*/*');
  idhttp2.Post(url.Text,DataStream);
  DataStream.Free;
  button1click(Sender);
end;

dann ruf ich halt im laufe des programms n paarmal die erste funktion auf und dann zwischendrin die zweite und dann geht nix mehr