Спасибо.
Сделал через 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); Для экстремалов