Рисунки в БД...

← →
Lamer_of_Delphi (2003-08-26 13:16) [0]

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

← →
Lamer_of_Delphi (2003-08-26 13:42) [1]

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

← →
zorik (2003-08-26 14:58) [2]

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

← →
Arm79 (2003-08-26 15:26) [3]

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

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

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

← →
Silla (2003-08-26 21:55) [5]

Со старого проекта держи пример, там разберешься
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;

← →
Vova (2003-08-26 23:16) [6]

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

← →
Lamer_of_Delphi (2003-08-27 08:47) [7]

Tnx...

Рисунки в БД... Найти похожие ветки