Найдено 2 результата
- 09.12.2011 17:42:25
- Форум: Lazarus
- Тема: [Решено] Проблемма с клиентом
- Ответы: 2
- Просмотры: 2416
Re: Проблемма с клиентом
Да, действительно работает. Спасибо за подсказку - очень выручели, ибо уже 4 дня не могу дописать программулину и никто нигде не отвечает на мои темы.А на счет указателей... Не знаю я их, собсно как и ссылок, а это мне очень мешает.Просто не могу найти нигде доступную статью по тому, как их ...
- 09.12.2011 02:56:54
- Форум: Lazarus
- Тема: [Решено] Проблемма с клиентом
- Ответы: 2
- Просмотры: 2416
[Решено] Проблемма с клиентом
Сервер:
Uses Crt,Sockets;
Type
Inet=object
Public
function Create() :boolean;
function GetData() :boolean;
function Close() :boolean;
Private
Saddr :TInetSockAddr;
Sock,Sock_new :longint;
buf :^byte;
SAddrLength :LongWord;
temp :text;
end;
Var
Serv: ...
Uses Crt,Sockets;
Type
Inet=object
Public
function Create() :boolean;
function GetData() :boolean;
function Close() :boolean;
Private
Saddr :TInetSockAddr;
Sock,Sock_new :longint;
buf :^byte;
SAddrLength :LongWord;
temp :text;
end;
Var
Serv: ...