ActiveDelphi

[RafaelBozo]

Olá, estou tentando utilizar o IdIcmpClient1 ele funciona perfeitamente no windows 32bits, eu preciso que ele funcione em 64Bits.


ai está o código fonte:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient,
StdCtrls;

type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
IdIcmpClient1: TIdIcmpClient;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);

private
// Function Ping(HostName: String): boolean;
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

Function Ping(HostName: String): boolean;
var
i, Soma, BytesRecebidos : Integer;
PckEntregue : Array[1..3] of Integer;
ICMP : TIdIcmpClient;
begin
try
ICMP := TIdIcmpClient.Create(nil);
try
ICMP.Host := HostName;
ICMP.ReceiveTimeout := 500;
ICMP.Ping;
BytesRecebidos := ICMP.ReplyStatus.MsRoundTripTime;
if ICMP.ReplyStatus.BytesReceived > 0 then
begin
result := true;
form2.edit2.text := intToStr(BytesRecebidos)+' MLS';
end
else
result := false;
form2.edit2.text := intToStr(BytesRecebidos)+' MLS';
except
result := false;
form2.edit2.text := 'Falha no recebimento dos pacotes';
end;

finally
ICMP.Destroy;
end;

end;


procedure TForm2.Button1Click(Sender: TObject);
begin
if Ping(Edit1.Text)=true then
ShowMessage('Vivo')
else
ShowMessage('Morto');
end;

end.


Quando rodo ele ele sempre me retorna falso no 64bits. e no 32bits eele funciona perfeitamente.

[anderbelluno]

Amigo aqui funcionou.
Vc reparou que vc comentou sua função:
private
// Function Ping(HostName: String): boolean;
{ Private declarations }

Att,
Anderson.

[RafaelBozo]

Quando eu "descomento" este item ele da um erro...


E2065: Unsatisfied forward or external declaration: 'form2.Ping'

ai eu coloco form2.ping e da o mesmo erro e aparece só 'Form2"

[anderbelluno]

Qual versão do Delphi você usa no 32? e no 64?

[marcieldeg]

No bloco implementation:

Function TForm2.Ping(HostName: String): boolean;
var
...

[RafaelBozo]

no 32 e no 64 eu rodo o Delphi 2010 do mesmo instalador amigo!

[RafaelBozo]

Farei o Teste marcielodg e depois volto aqui para avisar se deu certo!

[anderbelluno]

[RafaelBozo]

Funcionou certinho cara! Muito obrigado!