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

Вниз

поток данных в виде TextFile...   Найти похожие ветки 

 
Secam   (2004-12-26 16:17) [0]

Уважаеме Мастера,

Есть такая проблема. В одном компоненте, не мной написаном есть набор функций, реализующий обмен данными через сокет.
Сокет привязан к манипулятору типа TextFile.
А проблема вот в чем:
Во первых "\r\n" если во входных данных конец строки обозначается просто "\n" то функция ReadLn(f,str); вообще ничего читать из манипулятора не хочет.
Во вторых, Признак EOF естесственно не работает, т.к. это не
файл а поток данных. Я знаю длину в байтах, сколько нужно прочитать. Если я выйду за границу то readln застрянет в ожидании новых данных, которые никогда не придут.
Есть ли какой-то способ прочитать из TextFile без read и readLn,
т.к. очень не хочется привязываться к "\r\n" и накладывать ограничение, чтобы в конце данных обязательно была пустая строка.


 
Просто Джо ©   (2004-12-27 00:39) [1]

Есть ли какой-то способ прочитать из TextFile без read и readLn


var
 FileVar: file;

или

 FileStream: TFileStream


Да мало ли...


 
Fay ©   (2004-12-27 04:06) [2]

CreateFile/SetFilePointer/ReadFile/CloseHandle


 
Secam   (2004-12-27 09:36) [3]

Нет, я не про то,
Если я поменяю в объявлении класса

var
FileVar: Textfile;

на

var
FileVar: file;

тогда, как я уже говорил, компонент даст несоответствие типов, это было первое, что пришло мне в голову. Вся проблема в том, что манипулятор надо оставить типа TextFile (ну или как-то может преобразовать тип ...)

А с ReadFile Сейчас попробую что-нибудь придумать ...


 
Secam   (2004-12-27 09:57) [4]

Нет, ReadFile тоже дает несоответствие типов ...
Не работает он с ReadFile



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

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

Наверх




Память: 0.47 MB
Время: 0.037 c
3-1102850754
syte_ser78
2004-12-12 14:25
2005.01.16
кодировка в paradox 7


3-1103174137
_sulent
2004-12-16 08:15
2005.01.16
Пользователи


14-1104143086
Lancelot
2004-12-27 13:24
2005.01.16
Вот, оказывется, кто придумал Deathmatch и Capture The Flag :)


14-1103778461
AZ
2004-12-23 08:07
2005.01.16
Руководитель предприятия


1-1104340572
Kh v Pa
2004-12-29 20:16
2005.01.16
RichEdit98