chamar pagina WEB

Delphi

13/12/2005

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

Claudiocjr

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

13/12/2005

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.


GOSTEI 0
Sabado

Sabado

13/12/2005

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);


GOSTEI 0
Claudiocjr

Claudiocjr

13/12/2005

Obrigado pessoal, funcionou perfeitamente

Claudio


GOSTEI 0
POSTAR