Как передать параметры на сервер

Posted by maloy under Delphi, Архив

Sniper

Есть некий сервер, на котором лежит скрипт CGI. Как мне програмно передать на этот скрипт параметры. Например как мне предать два параметра user=root и pass=YouPass?

Pitbull

для приема — передачи используйте Get и Post.

 var PostD:TStringList;

Respons:TStringStream;

begin

response:=TStringStream.Create('');

PostD:=TStringList.create;

postD.add('user=root');

postD.add('pass=YouPass');

try

idHTTP1.post(aдрес_куда, PostD,Response);

Memo1.Lines.text:=response.DataStri ng;//ответ сервера

finally

response.free;

postD.free;

idHTTP1.disconnect;

end;

end;

и еще вариант

uses IdMultipartFormData;

procedure TForm1.Button1Click(Sender: TObject);

var data: TIdMultiPartFormDataStream;

begin

data := TIdMultiPartFormDataStream.Create;

try

{ параметрі для скрипта}

data.AddFormField('param1', 'value1');

data.AddFormField('param2', 'value2');

{ результаті } Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data);

finally

data.Free;

end;

end;