|
|
#1
|
|||
|
|||
Вполнить Cgi
Необходимо, чтобы из дельфи запускался и выполнялся cgi скрипт в инете.
Вот примерно так: strPCopy(HTMLFile, 'http://my.ru/cgi/main.cgi'); ShellExecute(Handle, 'open', HTMLFile, nil, nil, SW_SHOWNORMAL); Как изменить код, чтобы cgi скрипт выполнялся, но дельфи не пыталась открыть эту страницу через браузер? |
#2
|
||||
|
||||
возможно Sw_hide???
|
#3
|
|||
|
|||
Может послать запрос через Indy?
IdHTTP |
#4
|
|||
|
|||
Вполнить Cgi
Спасибо.
Сделал через 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); Для экстремалов |