Текущий архив: 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.04 c
