Скачать: CL | DM;

DBImage и format JPEG   Найти похожие ветки 

← →
melavcorp ©   (2003-03-20 11:01) [0]

Господа!! Поскажите, как сохранить в MSSQL2000(формат поля Image)рисунки. Схема такова: Клиентская часть реализована на ADO -> серверная MSSQL2000.

Если загрузить рисунок в DBImage формата jpeg, он нормально загружается, но при попытки сохранения в БД(POST) - удаляется из DBImage и соответственно в БД не записывается.
Попробовал через потоки, но увы.....не работает..
Представляю кусок кода..Что здесь не так???


uses ...,JPEG;

procedure TForm1.BitBtn3Click(Sender: TObject);
var Stream:TADOBlobStream;
begin
Stream := TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName("Picture")), bmReadWrite);
try
ADOQuery1.Edit;
Stream.Seek(0, soFromBeginning);
Stream.Truncate;
DBImage1.Picture.Graphic.SaveToStream(Stream);
ADOQuery1.Post;
finally
Stream.Free;
end;

end;

---

← →
melavcorp ©   (2003-03-20 11:17) [1]

Господа...не оставьте без внимания мой вопрос....

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c