Fórum chamar pagina WEB #305224
13/12/2005
0
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
Curtir tópico
+ 0
Responder
Posts
13/12/2005
Marcio.theis
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.
Responder
Gostei + 0
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);
{ 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
Gostei + 0
14/12/2005
Claudiocjr
Obrigado pessoal, funcionou perfeitamente
Claudio
Claudio
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)