лажа с sendtext

← →
mazepa (2004-08-02 16:49) [0]

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 кароче в одной строке а мне так саааавсем не надо

← →
Digitman © (2004-08-02 17:10) [1]

> лажа

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

← →
mazepa (2004-08-02 17:21) [2]

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

← →
Digitman © (2004-08-02 17:28) [3]

> mazepa (02.08.04 17:21) [2]

а ты пытался ?

← →
mazepa (2004-08-02 17:35) [4]

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

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

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

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

лажа с sendtext Найти похожие ветки