chamar pagina WEB

13/12/2005

1

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


Responder

Posts

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

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

14/12/2005

Claudiocjr

Obrigado pessoal, funcionou perfeitamente

Claudio


Responder