Autor Beitrag
augi
Hält's aus hier
Beiträge: 1



BeitragVerfasst: Fr 24.03.06 10:28 
Hallo,

versuche Daten zu holen, klappt aber nicht !
Was ist falsch ?
Benötige dringend Hilfe!

Anbei die aufrufende Procedure.

procedure TmainFrm.VisiButton1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
//
// 'https://intern.mycop.de/cop-os/OnlineCheck/?supid=4&custno=103680&user=103680&pass=9$2wv_aV5dkWFf!b&prodid=04975H';
//
data := TIdMultiPartFormDataStream.Create;
try
data.AddFormField('supid','4');
data.AddFormField('&custno','103680');
data.AddFormField('&user','103680');
data.AddFormField('&pass','9$2wv_aV5dkWFf!b');
data.AddFormField('&prodid','04975H');
memo1.Lines.Text := IdHTTP1.Post('https://intern.mycop.de/cop-os/OnlineCheck/?', data);
finally
data.Free;
end;
end;