Dodeljivanje vrednosti TField-u

[ Glogov_Kolac @ 06.10.2006. 12:24 ] @

Kako da dodelim sliku(preko open picture dialog-a) Tfieldu koji sam u Database Desktop-u definisao kao graphic.

[ Milos D @ 06.10.2006. 15:50 ] @

To polje bi trebalo da je TBlobField kojem mozes da uradis sledece:

BlobField.LoadFromFile(FileName);

[ Glogov_Kolac @ 06.10.2006. 19:33 ] @

Ali kako da mu pristupim kad se napise Table1.FieldByName('Slika').... sta onda?Nigde ne mogu da nadjem BlobField u hijerarhiji TField!

[ Milos D @ 07.10.2006. 09:57 ] @

onda probaj ovako

Code:
var bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('e:\my pictures\Delphi.bmp');
  table1.Edit;
  table1.FieldByName('image').Assign(bmp);
  table1.Post;
  bmp.free; // ...
end;

_{[Ovu poruku je menjao Milos D dana 08.10.2006. u 12:03 GMT+1]}

[ Glogov_Kolac @ 07.10.2006. 12:44 ] @

Hvala puno,proradilo je ovako.I ja sam slicno pokusavao ali sa klasom TPicture

[ Milos D @ 08.10.2006. 11:02 ] @

Ahm... memory leak... zaboravio sam bmp.free na kraju...

[ Glogov_Kolac @ 14.10.2006. 22:20 ] @

Sve je to lepo ali kako da dodelim jpg sliku blob polju u Paradox 7 tabeli?

[ Nemanja Avramović @ 14.10.2006. 22:41 ] @

Probaj ovako, možda i uspeš

Code:

uses jpeg;

...

var jpg: TJPEGImage; //valjda ovako beše...
begin
  jpg := TJPEGImage.Create;
  jpg.LoadFromFile('e:\my pictures\Delphi.jpg');
  table1.Edit;
  table1.FieldByName('image').Assign(jpg);
  table1.Post;
  jpg.free; // ...