Problem sa upisom slike

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E ovako imam jedan problem.

Pravim web stranicu i na stranici koristim MySQL kao bayu podataka.
Administracija stranice se obavlja preko programa koji pravim u delphiju. Prilikom testiranja aplikacije sve je radilo kako treba aplikacija se konektuje i pristupi bazi, sve radi normalno upisuje i ;ita podatke kako treba. ali sam na jednom mjestu aplikaciji napravio formu za upis slike u bayi i dok sam testirao aplikaciju u bayu sam samo ubcivao slike bmp formata i radi, medjutim kada sam htio da ubacim jpg ili gif sliku ona se ne prenese u bazu. Upit se pravilno izvrsi samo sto ne prenese sliku. Da li je neko imao slican problem i kako ga je rijesio. A sada kod koji upisuje sadrzaj u bazu:

UOBrUredjaja.Close;
UOBrUredjaja.DatabaseName:=BPArisIP.DatabaseName;
UOBrUredjaja.Close;
UOBrUredjaja.Prepare;
UOBrUredjaja.Open;
OBrGrupe.Close;
OBrGrupe.DatabaseName:=BPArisIP.DatabaseName;
OBrGrupe.Close;
OBrGrupe.Prepare;
OBrGrupe.ParamByName('Naziv').AsString:=cmbGrupe.Items.Strings[cmbGrupe.ItemIndex];
OBrGrupe.Open;
OBrMarke.Close;
OBrMarke.DatabaseName:=BPArisIP.DatabaseName;
OBrMarke.Close;
OBrMarke.Prepare;
OBrMarke.ParamByName('Naziv').AsString:=cmbMarke.Items.Strings[cmbMarke.itemindex];
OBrMarke.Open;
USUredjaj.Close;
USUredjaj.Prepare;
USUredjaj.ParamByName('BrUredjaja').AsInteger:=UOBrUredjajaBrUredjaja.AsInteger;
USUredjaj.ParamByName('BrMarke').AsInteger:=OBrMarkeBrMarke.AsInteger;
USUredjaj.ParamByName('BrGrupe').AsInteger:=OBrGrupeBrGrupe.AsInteger;
USUredjaj.ParamByName('Naziv').AsString:=txtNaziv.text;
USUredjaj.ParamByName('Opis').Assign(memOpis.Lines);
USUredjaj.ParamByName('Slika').Assign(imgSlika.Picture);
USUredjaj.ExecSQL;
OBrMarke.Close;
OBrGrupe.Close;
UOBrUredjaja.Close;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da bi se izbegli ovakvi problemi, radi se na sledeci nacin:
(pishem ne funkcionalan primer, snadji se za tvoj slucaj)

ms:=TMemoryStream.create; try   ms.LoadFromFile('imefajla');   ms.position:=0;   TBlobField( USUredjaj.ParamByName('Slika')).LoadFromStream(ms,ftBlob);    USUredjaj.ExecSQL; finally   ms.free; end; moraces da napravis i code za citanje slike iz baze i ubavicanje na ekran.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Postovani,
Isprobao sam kod koji ste napisali ali ne radi. Ne znam zasto ali ne radi. Kod koji sam ja gore naveo koristio sam ranije i radilo je sasvim normalno. Isti sam problem imao i kod citanje slike iz baze. Ali jedino rjesenje je bilo da snimim sliku na disk pa je onda citam, jeste sporije ali radi. A sto se tice snimanja slike ne ide. Ne znam zasto pokusao sam snimiti na disk pa citati iz diska citati iz streama pa ono goro sto sam ja prvi put proba ali ne ide stalno mi prikazuje da sam napravio prestup pristupio sam adresui na koju nesmjem.
Pa ako imate jos neku ideju molim vas da me obavjestite.
Sa postovanjem.

Dopuna: 19 Feb 2007 9:31

Ej ljudi, hvala na pomoci ali greska je bila do mene nisam bio naveo tip polja slika na ftBlob nego je stajao na nepoznat.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Samo malo vise obratis paznju na dugmad F1, F7, F5 i F8, kao i CTRL+F7 i nema da boli glava.