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

Вниз

Сохраняется поток в файл бинар, как сразу в тексте сохранять   Найти похожие ветки 

 
titnn ©   (2003-08-13 21:38) [0]

вот ф-ция
var FilterStream: TFileStream;
hFilter: DWORD = 0;


FilterStream:=TFileStream.Create(Path+edit1.Text+".dat", fmCreate);
hFilter:=AddFilter(strtoint("$"+Edit1.Text),@FilterHook);


procedure FilterHook(Buf: PByteArray; Len: Cardinal; hFilter: DWORD); stdcall;
begin
FilterStream.WriteBuffer(Buf[0],Len);
end;


как сделать чтоб файл получался текстовым ? плз поможите...


 
Palladin ©   (2003-08-13 23:26) [1]

а что такое текстовый файл?


 
Abelisto ©   (2003-08-13 23:47) [2]

Тоже ответ, достойный орехов :о)
АОТ: Попробуй использовать var f: TextFile и дальше как в старом добром Паскале, типа Writeln(f,"bla-bla-bla") либо при записи в поток в конце каждой строки добавляй #13#10... Или я таки не понял проблемы?



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
1-81757
Andrew_zem
2003-08-14 17:29
2003.08.25
Просмотр и изменение инфо файла!!!


1-81798
Jao
2003-08-11 14:22
2003.08.25
Интеграция XML-схем в дельфу. С чего начать?


1-81775
Vlad
2003-08-14 11:49
2003.08.25
Обработка исключительных ситуаций в Delphi


14-81954
Feshik
2003-08-06 17:32
2003.08.25
Опять про чужое окно


1-81795
ossa
2003-08-14 08:01
2003.08.25
можно ли в одном модуле ссылаться на переменую в другом и обратно