BorlandTalk.com

Ricardo Carmo · Guest

Hi all.

The scene:
There is a web page on internet with some fields to get data (a form) from
the user,
and a button "submit" to process the data and return a html page. It´s a PHP
web service.

The problem:
I want "bypass" the form and the button submit, to send data directly to web
service
and get the result (the html page) to show it in a IE instance (or a
TWebBrowser, maybe).

Is it possible to do this using Delphi?
how can i do?

Thanks.
Ricardo Carmo.

Dmeister · Guest

Yes. Take a look at the Indy http component.

"Ricardo Carmo" <rsc.maceio (AT) bol (DOT) com.br> wrote

Ricardo Carmo · Guest

Hi.
I've already used TidHTTP (see the code below),
but i want to know if exists any solution more efficient, or appropriated.

(sorry for my english)
TIA
Ricardo Carmo

procedure TFMain.ShowWEBPageClick(Sender: TObject);
var cVar1: string;
Response: TStringStream;
T: TStrings;
HTTP: TIdHTTP;
begin
cVar1:='ABC';
HTTP:=TIdHTTP.Create(FMain);
Screen.Cursor:=crHourGlass;
Response := TStringStream.Create('');
HTTP.Request.Referer :='http://www.myurl.com/index.php';
HTTP.Request.ContentType :='application/x-www-form-urlencoded';
HTTP.Request.Accept :='*/*';
HTTP.Request.UserAgent :='Mozilla/4.0 (compatible; MSIE 6.0; Windows
NT 5.0; .NET CLR 1.1.4322)';
HTTP.Request.Connection :='Keep-Alive';
HTTP.Request.AcceptLanguage:='pt-br';
HTTP.Request.ContentLength :=9;
HTTP.Host :='http://www.myurl.com';

T:=TStringList.Create;
T.Add('MyVar='+cVar1);
try
HTTP.Post('http://www.myurl.com/SomeService.php', T, Response);

T.Text:=Response.DataString;

T.SaveToFile('MyPage.htm');
ShellExecute(0,'open',PChar('MyPage.htm'),'','',SW_SHOWNORMAL);

Screen.Cursor := crDefault;
except
on E: Exception do begin
Screen.Cursor := crDefault;
MessageDlg('Error:'+#13+E.Message,mtInformation,[mbOk],0);
end;
end;
T.Free;
Response.Free;
HTTP.Free;
{$ENDIF}
end;

"Dmeister" <daoud (AT) malikyar (DOT) com> escreveu na mensagem
news:4113e0c0$1 (AT) newsgroups (DOT) borland.com...