o que tem de errado no codigo

Delphi

12/05/2013

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;

quando compilo da erro lt e gt e nao sei que tipo de dados é e como arrumar.

obrigado

¨Deus abençoes
Wilton Júnior

Wilton Júnior

Curtidas 0

Respostas

Carlos Bernardo

Carlos Bernardo

12/05/2013

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

Acrescentei o WinInet no uses...
GOSTEI 0
Wilton Júnior

Wilton Júnior

12/05/2013

Estou no Delphi XE3 e da erro na terceira linha onde tem as duas variaveis lt e gt
GOSTEI 0
Frederico Brigatte***

Frederico Brigatte***

12/05/2013

Sumiu meu amigo.
GOSTEI 0
Wilton Júnior

Wilton Júnior

12/05/2013

estou todo dia a noite no facebook fred
GOSTEI 0
Frederico Brigatte***

Frederico Brigatte***

12/05/2013

Pra mim não aparece. Vc ta la agora?
GOSTEI 0
Wilton Júnior

Wilton Júnior

12/05/2013

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

Joel Rodrigues

12/05/2013

Qual é exatamente o erro?
GOSTEI 0
Wilton Júnior

Wilton Júnior

12/05/2013

Não é erro Joel, eu gostaria de saber se tem como criar uma identação fixa só isso.
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

12/05/2013

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

tente outro operador como =1 ou =0
GOSTEI 0
Wilton Júnior

Wilton Júnior

12/05/2013

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

Leonardo Xavier

12/05/2013

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;
GOSTEI 0
Frederico Brigatte***

Frederico Brigatte***

12/05/2013

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;
GOSTEI 0
Frederico Brigatte***

Frederico Brigatte***

12/05/2013

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
GOSTEI 0
Wilton Júnior

Wilton Júnior

12/05/2013

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 :)
GOSTEI 0
Ismael Vale

Ismael Vale

12/05/2013

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;
GOSTEI 0
POSTAR