DBImage и format JPEG [D6, D7, MSSQL]
melavcorp © (2003-03-20 11:01:00)
Господа!! Поскажите, как сохранить в 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:00) [1]
Господа...не оставьте без внимания мой вопрос....
Наверх 
ЧАТ |
Орешник |
|
