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

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

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

Рисунки в БД... [D6, MySQL]

Lamer_of_Delphi © (2003-08-26 13:16:00)

Здравствуйте, подскажите как работать с рисунками в ДБ - стандартные компоненты работают только с ТБитмап что не есть гут из-за размеров рисунков? Как работать с JPG, Gif: есть какие-нибудь компоненты для этого ведь не встраивать же код Кодир./Декодир. в приложение?

Lamer_of_Delphi (2003-08-27 08:47:00) [1]

Tnx...

Vova (2003-08-26 23:16:00) [2]

Можно работать с JPG через вставку в Uses модуля jpeg.

Silla (2003-08-26 21:55:00) [3]

Со старого проекта держи пример, там разберешься
procedure TForm1.N4Click(Sender: TObject);
var
Picture: TPicture;
ImageField: TField;
BlobStream: TStream;
begin
if ADOTable.FieldByName("Id").Value = Null then Exit;
with OpenPictureDialog do begin
InitialDir := ExtractFilePath(Application.ExeName);{Imagedir}
if Execute then
with DBGrid.DataSource.DataSet do
try
Edit;
ImageField := FieldByName("Picture"); // Можно FindField("Picture");
if ImageField <> nil then
begin
Picture := TPicture.Create;
try
Picture.LoadFromFile(FileName);
if Picture.Graphic is TBitmap then
ImageField.Assign(Picture)
else
// если работаешь только с рисунками bmp, то эта часть не нужна
begin
if ImageField is TBlobField then
with ImageField as TBlobField do
begin
BlobStream := DataSet.CreateBlobStream(ImageField, bmWrite);
try
Picture.Graphic.SaveToStream(BlobStream);
finally
BlobStream.Free;
end;
end;

end;
MessageDlg("No file picture", mtError, [mbOK], 0);
finally
Picture.Free;
end;
end;
Post;
except
end;
end;
end;

Lamer_of_Delphi (2003-08-26 17:44:00) [4]

А примеров нет?))))

Arm79 (2003-08-26 15:26:00) [5]

TStream, TADOBLOBStream, TBLOBStream, для записи в файл TFileStream. Можно еще использовать TMemoryStream

zorik (2003-08-26 14:58:00) [6]

Использоват TStream - потоки, для записи и для чтения.

Lamer_of_Delphi (2003-08-26 13:42:00) [7]

Неужели никто не в курсе...(((((((

Наверх

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