![]() |
|
#4
|
|||
|
|||
![]() Спасибо.
Сделал через IdHTTP HTTP.Post('http://my.ru/cgi/main.cgi', ss, tmpStream); Вот кусок кода, если кому тоже понадобиться use ....... IdHTTP; ....... private HTTP : TIdHTTP; ....... procedure TForm1.FormCreate(Sender: TObject); begin HTTP := TIdHttp.Create(Self); end; procedure TForm1.FormDestroy(Sender: TObject); begin HTTP.Free; end; procedure TForm1.Button1Click(Sender: TObject); var tmpStream : TStringStream; begin tmpStream := TStringStream.Create(''); memReceive.Text := ''; try HTTP.Post('http://my.ru/cgi/main.cgi', memPost.Lines, tmpStream); memReceive.Text := tmpStream.DataString; except on E : Exception do memReceive.Text := E.Message; end; tmpStream.Free; end; PS. main.cgi: #!/usr/bin/perl use CGI::Carp qw (fatalsToBrowser); my $req = <STDIN>; print $req; # print eval($req); Для экстремалов ![]() |