Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.03.09;
Скачать: CL | DM;

Вниз

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 вся ветка

Текущий архив: 2008.03.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
15-1200650677
capkoh
2008-01-18 13:04
2008.03.09
Оценка качества кода


3-1192953243
Evgeny
2007-10-21 11:54
2008.03.09
Ошибка SQL запросе


2-1202719916
Kolan
2008-02-11 11:51
2008.03.09
Как узнать какие именно пакеты нужны приложению?


10-1132058772
ForgotPass
2005-11-15 15:46
2008.03.09
COM-объект FlashGet ("JetCar.Netscape")


11-1185003728
Vladimyr
2007-07-21 11:42
2008.03.09
Запуск Апплета через сервис