Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Как считать с базы текст размером 1М. 


Zak   (2002-04-09 13:08) [0]

Сабж. Есть поля Мемо в которых находится тексты. И вот надо считать эти тексты и соответствено сохранить на диске в текстовом формате. В рич такие размеры не влезают, что делать?
Может есть такие компоненты? (бесплатно соответствено?:))
И еще...
Как сделать чтоб кода происходит SaveToFile с DBRichedit в файл формате txt он не записывал этот текст в формате rtf а в простом тхт?



Dok_3D   (2002-04-09 13:19) [1]

var BlobStream : TStream;
FileStream : TFileStream;
begin
FileStream:=TFileStream.Create(stFileName,fmCreate);
BlobStream:=Query.CreateBlobStream(Query.FieldByName ("MEMOFIELD"),bmRead);
FileStream.CopyFrom(BlobStream,0);
BlobStream.Free;
FileStream.Free;
end;

Набил прямо здесь, но, думаю, суть понятна ...



Lusha   (2002-04-09 13:21) [2]

>Dok_3D
А что TBlobField.SaveToFile не прокатит?



Dok_3D   (2002-04-09 20:01) [3]

2Lusha
Может и прокатит. Не пробовал. У меня вообще не было надобности из поля сразу в файл. Просто, человек спросил, я ответил.



Zak   (2002-04-10 06:52) [4]

Такс. значит и чтоб записать в таблу такие размера нужно также через Stream-ы
хм.. понятно большое спасибо :)




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-94468           Sasha9                2002-04-16 12:21  2002.04.29  
Бит из байта


3-94268           dialectic             2002-04-05 09:22  2002.04.29  
3 диалект и BDE


6-94528           Lenidus               2002-02-17 14:10  2002.04.29  
Чем заменить компонент TWebBrowser?


1-94401           alxx                  2002-04-12 16:17  2002.04.29  
Как рисовать на обоях, вместо обоев?


1-94359           NS                    2002-04-17 11:57  2002.04.29  
Нужно в RUN-Time создавать экземпляры некоторых объектов (для при