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

Вниз

Как сохранять содержимое файлов в БД и обратно ?   Найти похожие ветки 

 
NewD   (2003-11-06 13:38) [0]

имеется поле VARBINARY исползую ADO

и я в него сохраняю содержимое файла через Tstream

для сохранения в БД:

procedure TForm1.Button1Click(Sender: TObject);
var stream:tadoblobstream;
begin
try
ADODataSet1.Append;
if opendialog1.Execute then
begin
stream:=tadoblobstream.Create(tblobfield (ADODataSet1.FieldByName("BlOBFIELD")),bmReadWrite);
stream.LoadFromFile(opendialog1.FileName);
end;
ADODataSet1.Post;
except
on e:exception do showmessage(e.Message);
end ;
stream.free;
end;


для сохранения в файл

procedure TFormDOC.Button2Click(Sender: TObject);
var stream:tadoblobstream;
i:integer;
begin
try
if savedialog1.Execute then
begin
ADODataSet1.Edit;
stream:=tadoblobstream.Create(tblobfield(ADODataSet1.FieldByName("BlOBFIELD")),bmread);
stream.savetofile(savedialog1.FileName);
ADODataSet1.cancel;
end;
except
on e:exception do showmessage(e.Message);
end ;
stream.free;
end;

ошибок нет но почему то сохраняет 0 байт в файле,
что не так ?
или он не грузит в базу данные из файла ?


 
sniknik ©   (2003-11-06 13:51) [1]

просто
tblobfield(ADODataSet1.FieldByName("BlOBFIELD")).savetofile(savedialog1.FileName);
попробуй, и аналогично чтение.


 
NewD   (2003-11-06 13:54) [2]

я уже пробовал при сохранении выдает ошибку:
Invalid class Typecast


 
sniknik ©   (2003-11-06 14:22) [3]

так это уже несответствие типов, может и ноль байт записывало потомуже, поменяй тип поля на blob (image к примеру).
посмотрел, у TBinaryField вообще нет stream-а (а приводится по типу к нему)



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

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

Наверх




Память: 0.47 MB
Время: 0.035 c
3-89691
Denisiy
2003-11-06 12:11
2003.11.27
Ошибка после прерывания проги в отладке


1-89851
mrAld
2003-11-16 15:09
2003.11.27
Трей для чайников


7-90150
LeNa19
2003-09-15 23:33
2003.11.27
копирование без нагрузки на систему


1-89832
Agent[007]
2003-11-14 06:44
2003.11.27
Двоичные файлы...


1-89922
Adoon
2003-11-18 17:52
2003.11.27
Формат RTF и JPG