Grafika i bazy danych - znowu

0

Mam taki maly (podejrzewam ze dla was maly) duzy
problem. Mianowicie za nic w swiecie nie moge dodac
do bazy danych obrazka (baza to Paradox7).
Probowalem kilkanascie metod i wielkie jajo (metody z forum nie dzialaja). Mam na
formie DataSource, DBTables, DBGrid, umDBImage
(obsluguje 7 formatow grafiki), Button i
OpenPictureDialog1.
Baza ma dwa pola: Nazwa i Obrazek (picture).
Nazwe wpisuje mi do bazy bez problemu. Pod buttonem
mam procedure ktora laduje mi obrazek do umDBImage
ale nie chce mi zapisac do pliku *.mb.

...........
public
CurrentFile : String;
{ Public declarations }
......................
procedure TMainForm.ButtonClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
CurrentFile := OpenPictureDialog1.FileName;
umDBImage.Picture.LoadFromFile(CurrentFile);
end;
end;

Jak to zrobic? Co powinno byc umieszczone pod
przyciskiem?
2* Czy mozna zrobic tez pod przyciskiem ze obrazek
bedzie mi kopiowal do katalogu z baza a w bazie bedzie
tylko odnosnik i po wskazaniu rekordu wyswietli
obrazek? Ale to dla mnie tez czarna magia.
[stuk] Najlepsza byla by druga metoda.
Z gory dzieki

Zycie jest brutalne
---------------------------------------<email></email>

0

Spróbuj najpierw ustawić bazę do edycji, tzn Table1.Edit, a dopiero potem załadować obrazek i na końcu oczywiście Table1.Post.

0

Niby tak a wyswietla:
przy zapisywaniu: 'File write stream Error'
A przy odczycie chociaz plik nie jest dolaczony do bazy 'File read stream Error'
Co jest nie tak.

[glowa]

0

Witaj!
Moze sprobuj tak:
Jesli obrazek wyswietlasz w imagu a chcesz go zapamietac to zapamietuj np: jego nazwe a sam obrazek zapamietuj w katalogu np:grafika. I teraz jesli chcesz odczytac obrazek z bazy danych do imaga to w ten sposob :

image(nr).Picture.LoadFromFile(path+'\grafika'+table1.fieldbyName('nazwa obrazka').asstring+'.bmp');

gdzie path to:

var
path:string;
begin
path:=getcurrentdir();
end;

Nie wiem czy ci o to chodzilo ale moze?
Ja mialem podobna procedurke podpieta do grida, kiedy kliknalem 2razy myszka
Pozdrawiam!

0

Niby tak a wyswietla:
przy zapisywaniu: 'File write stream Error'
A przy odczycie chociaz plik nie jest dolaczony do bazy 'File read stream Error'
Co jest nie tak.

[glowa]

<font color="violet">umDBImage: data-aware TImage component. Automatically recognize the image format of BLOB field and shows pictures in BMP and JPG formats.</span>

Wygląda na to, że ten komponent służy tylko do odczytu Image z pola typu BLOB (tak wynika ze żródeł).

0

Ludzie :-D :-D :-D
Jestescie cudowni. Wszystko dziala jak trzeba.
Wielkie dzieki
Pozdrowienia dla wszystkich
[cya] [cya] [cya] [cya] [cya] [cya]

1 użytkowników online, w tym zalogowanych: 0, gości: 1