Kako da dodelim sliku(preko open picture dialog-a) Tfieldu koji sam u Database Desktop-u definisao kao graphic.
Dodeljivanje vrednosti TField-u
Zaključano
Zakačeno
To polje bi trebalo da je TBlobField kojem mozes da uradis sledece:
BlobField.LoadFromFile(FileName);
BlobField.LoadFromFile(FileName);
Ali kako da mu pristupim kad se napise Table1.FieldByName('Slika').... sta onda?Nigde ne mogu da nadjem BlobField u hijerarhiji TField!
izmenjeno 1 put, poslednji put Milos D 08.10.2006. u 12:03
Izmene poruke
- Milos D08.10.2006. u 12:03zapis iz teksta poruke
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;
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;
Hvala puno,proradilo je ovako.I ja sam slicno pokusavao ali sa klasom TPicture
Ahm... memory leak... zaboravio sam bmp.free na kraju...
Sve je to lepo ali kako da dodelim jpg sliku blob polju u Paradox 7 tabeli?
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; // ...
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; // ...