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
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
Curtidas 0
Respostas
Marcio.theis
13/12/2005
Se vc apenas deseja chamar a página da web, ou seja, executar, basta:
Não se esquecendo de declarar a unit ShellAPI no Uses.
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
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);
{ 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
13/12/2005
Obrigado pessoal, funcionou perfeitamente
Claudio
Claudio
GOSTEI 0