Форум: "KOL";
Текущий архив: 2008.03.09;
Скачать: [xml.tar.bz2];

Вниз

TCP в вопросах и ответах   Найти похожие ветки 

← →
max727   (2007-07-19 16:52) [0]

Возникла проблема с написанием простенького 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)

---

← →
Дмитрий К ©   (2007-07-19 16:59) [1]

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

---

← →
max727   (2007-07-19 17:19) [2]

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

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

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

---

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

Форум: "KOL";
Текущий архив: 2008.03.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c