| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TCP в вопросах и ответах

max727 ©   (2007-07-19 16:52:00) 

Возникла проблема с написанием простенького TCP-сервера


program MyFirstSrv;
{$DEFINE KOL}
{$DEFINE ASM_VERSION}
uses
 windows,
 messages,
 kolTCPSocket,
 kol;

{$R XWinServer.RES}

var
 Server: PTCPServer;

function doAccept(Sender: PTCPServer; const IP: string;
 const Port: SmallInt): boolean;
begin
 MsgOK(IP);
 Result := True;
end;

procedure doClientReceive(sender: PTCPClient;
 var buf: array of Byte; const count: Integer);
var s, t: string;
begin
 SetLength(s, count);
 Move(buf, s[1], count);
 t := UpperCase(s);
 MsgOK(t);
end;

begin
 Applet := NewApplet('MyFirstServer');
 Server := NewTCPServer;
 Server.Port := 8888;
 Server.OnAccept := TOnTCPAccept(MakeMethod(nil, @doAccept));
 Server.OnClientReceive := TOnTCPReceive(MakeMethod(nil, @doClientReceive));
 Applet.Hide;
 Server.Listen;
 Run(Applet);
end.



с простенького клиента посылается строка с текстом
и сервер ее как бы принимает, но почему-то не ту, что была отправлена
выводит в окошке всякие кракозябры
и после двух-трех строк вываливается без каких-либо ошибок

дайте кто-нить пару примеров на KOL, как организовать сервер
и клиент к нему
(демки написаны на KOL+MCK)

---

max727   (2007-07-19 17:19:00) [1]

Спасибо, вот в чем была загвоздка-то
а я весь день парюсь

кошмар! вот что значит отсутствие опыта

кого отвлек - извините
учиться тоже ведь надо

---

Дмитрий К   (2007-07-19 16:59:00) [2]

http://kolmck.net/r_faq.htm#how_to_assign_a_regular

---

Наверх