Скачать: CL | DM;

Почему вылазеет ошибка?   Найти похожие ветки 

← →
Serega 1   (2002-04-25 07:08) [0]

У меня работает, а вот у моего дргана - нет.
На каждое событие Timer1Timer вылезает ошибка Access violation...
Вот кусочек моей проги:
function GetLocalIP: String;
type
PPInAddr = ^PInAddr;
var
wsaData: TWSAData;
HostInfo: PHostEnt;
HostName: Array[0..255] of Char;
Addr: PPInAddr;
begin
Result := "";

if WSAStartup($0102, wsaData) <> 0 then exit;

try

If gethostname(HostName, SizeOf(HostName)) <> 0 then exit;

HostInfo := gethostbyname(HostName);

If HostInfo = nil then exit;

Addr := Pointer(HostInfo^.h_addr_list);
If (Addr = nil) or (Addr^ = nil) then exit;

Result := StrPas(inet_ntoa(Addr^^));
inc(Addr);

while Addr^ <> nil do
begin
Result := Result + ^M^J + StrPas(inet_ntoa(Addr^^));
inc(Addr);
end;
finally
WSACleanup;
end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If (GetLocalIp<>"127.0.0.1") and (GetLocalIp<>"") and (Form1.Client.Active<>true) then begin
with Form1.Client do begin
try
Open;
except
Free;
end;
end;
end;
end;

---

← →
Song ©   (2002-04-25 08:58) [1]

А что такое Client? Вы сами его создаёте?
Я так думаю в except надо Close писать.

---

← →
Anatoly Podgoretsky ©   (2002-04-25 09:47) [2]

Ух ты какой мощный источник для ошибок

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c