o que tem de errado no codigo

12/05/2013

Carlos Bernardo

Opa.. aqui testei e funcionou... Delphi 2007

Acrescentei o WinInet no uses...

Responder

Gostei + 0

13/05/2013

Wilton J�nior

Estou no Delphi XE3 e da erro na terceira linha onde tem as duas variaveis lt e gt

Responder

Gostei + 0

13/05/2013

Wilton J�nior

Estou no Delphi XE3 e da erro na terceira linha onde tem as duas variaveis lt e gt e declarei no uses WinInet.

Responder

Gostei + 0

13/05/2013

Joel Rodrigues

Qual � exatamente o erro?

Responder

Gostei + 0

13/05/2013

Wilton J�nior

N�o � erro Joel, eu gostaria de saber se tem como criar uma identa��o fixa s� isso.

Responder

Gostei + 0

13/05/2013

Leonardo Xavier

Os dados que est�o sendo do seu debug s�o:
< == lesser-than
> == greater-than

tente outro operador como =1 ou =0

Responder

Gostei + 0

13/05/2013

Wilton J�nior

Leonardo Xavier eu n�o entendi nada vc tem certeza que deu uma resposta no poste correto?

Responder

Gostei + 0

13/05/2013

Leonardo Xavier

o que eu quis dizer foi o seguinte:

procedure TForm1.Button1Click(Sender: TObject); 
var 
Flags : Cardinal; 
begin 
if not InternetGetConnectedState(@Flags, 0) then 
ShowMessage('N�o h� conex�o com a Internet') 
else 
if Flags and INTERNET_CONNECTION_LAN = 1 then 
ShowMessage('H� conex�o com a Internet atrav�s de um roteador') 
else 
if Flags and INTERNET_CONNECTION_PROXY = 1 then 
ShowMessage('H� conex�o com a Internet atrav�s de um proxy') 
else 
ShowMessage('H� conex�o com a Internet'); 
end;

Responder

Gostei + 0

13/05/2013

Frederico Brigatte***

Eu testei no Delphi 7 e deu erro. Fiz de acordo com o que diz no site.

Na Uses coloquei:

Uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags : Cardinal;
 begin
  if not InternetGetConnectedState(@Flags, 0) then
   ShowMessage('N�o h� conex�o com a Internet')
  else
  if Flags and INTERNET_CONNECTION_LAN <> 0 then
   ShowMessage('H� conex�o com a Internet atrav�s de um roteador')
  else
  if Flags and INTERNET_CONNECTION_PROXY <> 0 then
   ShowMessage('H� conex�o com a Internet atrav�s de um proxy')
  else
   ShowMessage('H� conex�o com a Internet');
end;

Responder

Gostei + 0

13/05/2013

Frederico Brigatte***

Eu testei no Delphi 7 e deu erro. Fiz de acordo com o que diz no site.

Na Uses coloquei:

Uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags : Cardinal;
 begin
  if not InternetGetConnectedState(@Flags, 0) then
   ShowMessage('N�o h� conex�o com a Internet')
  else
  if Flags and INTERNET_CONNECTION_LAN <> 0 then
   ShowMessage('H� conex�o com a Internet atrav�s de um roteador')
  else
  if Flags and INTERNET_CONNECTION_PROXY <> 0 then
   ShowMessage('H� conex�o com a Internet atrav�s de um proxy')
  else
   ShowMessage('H� conex�o com a Internet');
end;

Erro de lt e gt

Responder

Gostei + 0

15/05/2013

Wilton J�nior

Uses WinInet;

procedure TForm1.BitBtn1Click(Sender: TObject);
var Flags : Cardinal;
begin
if not InternetGetConnectedState(@Flags, 0) then
ShowMessage('N�o h� conex�o com a Internet')
else
if Flags and INTERNET_CONNECTION_LAN <> 0 then
ShowMessage('H� conex�o com a Internet atrav�s de um roteador')
else
if Flags and INTERNET_CONNECTION_PROXY <> 0 then
ShowMessage('H� conex�o com a Internet atrav�s de um proxy')
else
ShowMessage('H� conex�o com a Internet');
end;

Deu certo, obrigado a todos :)

Responder

Gostei + 0

15/05/2013

Ismael Vale

Uses WinInet;

procedure TForm1.BitBtn1Click(Sender: TObject);
var Flags : Cardinal;
begin
if not InternetGetConnectedState(@Flags, 0) then
ShowMessage('N�o h� conex�o com a Internet')
else
if Flags and INTERNET_CONNECTION_LAN <> 0 then
ShowMessage('H� conex�o com a Internet atrav�s de um roteador')
else
if Flags and INTERNET_CONNECTION_PROXY <> 0 then
ShowMessage('H� conex�o com a Internet atrav�s de um proxy')
else
ShowMessage('H� conex�o com a Internet');
end;

Deu certo, obrigado a todos :)

No meu Delphi XE2 deu certo, basta declarar na uses a unit o WinInet;

Responder

Gostei + 0

F�rum o que tem de errado no codigo #442676