Главная страница
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.031 c
14-90102
Nick Denry
2003-11-01 13:14
2003.11.27
Кросплатформенность... ;-)


1-89813
maximizator
2003-11-14 20:43
2003.11.27
Как с модальной формы вызвать форму fsNormal, always OnTop


14-90113
Nikolay M.
2003-10-16 10:44
2003.11.27
---|Ветка была без названия|---


14-90073
FFFh
2003-11-05 13:42
2003.11.27
Момогите разобраться с мобилой!


4-90168
Denius
2003-10-01 20:04
2003.11.27
AetLayeredWindowAttributes объясните что не так делаю!