Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сохранить JPG в базу Access через ADO [D6]

root © (2005-11-09 13:41:00)
Господа у меня возникла следующая проблемма
пытаюсь сохранить JPG в базу
двумя способами
1. через TBlobField передаю ему из TMemoryStream выдает ощибку что Bitmap invalid итд
2. способ через TBlobFieldStream при указания поля в которую должно записать картинка появляется ошибка Invalid TypeCast

Как можно сохранить картунку в формате JPG в базу?
тип поля в базе данных OLE

Johnmen (2005-11-10 13:26:00) [1]
>root ©

Теперь попробуй сравнить размер файла BMP с размером содержимого поля, куда ты эту картинку загнал...

root (2005-11-10 12:47:00) [2]
реально все стало работать после переброски через Image

Johnmen (2005-11-10 09:03:00) [3]
>Polevi © (10.11.05 06:24) [7]
>не верю

Я тоже.
А так хочется верить людям...:)

Polevi (2005-11-10 06:24:00) [4]
>TBlobField(ADOTable1.Fields[1]).LoadFromStream(S);- тут ошибка что invalid Bitmap
не верю

antoxa2005 (2005-11-10 06:07:00) [5]
Попробуй при разработке вставить в Image1 "руками" Jpg рисунок, потом во время выполниения все будет работать ч-з TBlobField.

root (2005-11-09 16:45:00) [6]
Johnmen ©
я преобразую BMP в JPG
и мне необходимо передать JPG в stream а не BMP вот и делаю
а то что там написано это для нагядства два Image

Johnmen (2005-11-09 16:00:00) [7]
А зачем какие-то невразумительные телодвижения с jpeg'ом???

BMPImage.Picture.Bitmap.SaveToStream(S);

root (2005-11-09 14:44:00) [8]
if OpenDialog1.Execute then begin
BMPImage.Picture.LoadFromFile(OpenDialog1.FileName);
JPECConv:=TJpegImage.Create;
Try
JPECConv.Assign(BMPImage.Picture.Bitmap);
JPEGImage.Picture.Assign(JPECConv);
ADOTable1.Edit;
S:=TMemoryStream.Create;
JPECConv.SaveToStream(S);
TBlobField(ADOTable1.Fields[1]).LoadFromStream(S);- тут ошибка что invalid Bitmap
ADOTable1.Post;

finally
S.Free;
JPECConv.Free;

end;

Плохиш (2005-11-09 14:01:00) [9]
TBlobField.LoadFromStreamчитать пример в справке до полногопрояснения.

Johnmen (2005-11-09 14:00:00) [10]
Приводи код по п.1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »