13/12/2005

chamar pagina WEB

Ola Pessoal

Utilizo o Delphi 6 e tenho que fazer o sistema
executar uma pagina da WEB passar alguns parametros
para ela.

É que eu tenho que mandar informações para a pagina
do meu cliente.

Grato

Claudio


Claudiocjr

Respostas

13/12/2005

Marcio.theis

Se vc apenas deseja chamar a página da web, ou seja, executar, basta:

ShellExecute(Application.Handle, nil, PChar(coloque aqui a URL desejada), nil, nil, SW_SHOWNORMAL);


Não se esquecendo de declarar a unit ShellAPI no Uses.


Responder Citar

13/12/2005

Sabado

private
{ Private declarations }
public
procedure JumpTo(const aAdress: String);
Procedure MensagemHint(Sender: TObject);
{ Public declarations }

procedure TFrm_Sobre.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := ´http://´ + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

Chame o evento assim:

JumpTo(site.Caption);


Responder Citar

14/12/2005

Claudiocjr

Obrigado pessoal, funcionou perfeitamente

Claudio


Responder Citar