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

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

лажа с sendtext [D5, Win2k]


mazepa ©   (2004-08-02 16:49:00) 

for i:=1 to com.RecordCount do
     begin
       Server.Socket.Connection[0].SendText('#L'+com['code']);
       com.Next;
     end;

и приемчик

 if Copy(s,1,2) = '#L' then
 begin
  Delete(s,1,2);
  Memo1.Lines.Add(s);
  Exit;
 end;

так вот собственно трабл иногда приходит
допустим
1
2
3
а иногда
1#L2#L3 кароче в одной строке а мне так саааавсем не надо


VID   (2004-08-02 21:11:00) [1]

mazepa, смотри сюда:

http://delphibase.endimus.ru/?action=viewfunc&topic=nettransfer&id=10335

Там решение твоей проблемы.


mazepa   (2004-08-02 17:35:00) [2]

%) варианты отправки весьма ограничены... может как-нить в потоке ? вот только я с потоками слабоват...
как файл можно
MyStream:=TMemoryStream.Create;
MyStream.LoadFromFile('c:\dat.txt');
NMStrm1.PostIt(MyStream);
MyStream.Free;
только если сервер win2k as а клиент вин хрю то и файлики как-то не ходют :(


Digitman   (2004-08-02 17:28:00) [3]


> mazepa   (02.08.04 17:21) [2]


а ты пытался ?


mazepa   (2004-08-02 17:21:00) [4]

и че данный трабл решить не предстовляется возможным?


Digitman   (2004-08-02 17:10:00) [5]


> лажа


это не лажа, это фича


Наверх

Титульная страница Поиск, карта сайта Написать письмо