Array
(
)

chamar pagina WEB

Claudiocjr
   - 13 dez 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


Marcio.theis
   - 13 dez 2005

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

#Código

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.


Sabado
   - 13 dez 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);


Claudiocjr
   - 14 dez 2005

Obrigado pessoal, funcionou perfeitamente

Claudio