Editing ray

Title / Description

Code
uses ... jpeg; type ... procedure ReadImgFromDB(); procedure LoadImgToDB(); // Процедура завантаження зображення з бази даних procedure TForm1.ReadImgFromDB(); var jpg:TJPEGImage; Blob:TMemoryStream; begin try jpg:=TJPEGImage.Create; { Створимо потік пам'яті Blob, завантажимо зображення з поля двійкових даних(blob) бази даних з навою поля 'Фото' в режимі читання } Blob:=TADOBlobStream.Create(TBlobField(DM.tblAnteny.FieldByName('Фото')),bmRead); if Blob.Size = 0 then Exit; jpg.LoadFromStream(Blob); { Завантажимо ддані до компоненту TImage що розміщений на формі під назвою img1 } img1.Picture.Assign(jpg); jpg.Free; Blob.Free; except on e:Exception do begin jpg.Free; Blob.Free; end; end; end; // Процедура завантаження зображення до бази даних procedure TForm1.LoadImgToDB(); var Blob:TMemoryStream; begin try if dlgOpen1.Execute then begin DM.tblAnteny.Edit; // Переведемо таблицю в режим редагування { Створимо потік пам'яті Blob, для поля двійкових даних(blob) бази даних з навою поля 'Фото' в режимі запису } Blob:=TADOBlobStream.Create(TBlobField(DM.tblAnteny.FieldByName('Фото')),bmWrite); { Завантажимо зображення в потік Blob із файлу, що вибрали в діалозі відкриття TOpenDialog dlgOpen1 } Blob.LoadFromFile(dlgOpen1.FileName); Blob.Free; DM.tblAnteny.Post; // Застосуємо зміни для таблиці end; except on e:Exception do end; end;

Author

Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code