rad sa slikama u delphiju

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

nešto sam uradio, ali nisam mislio da će biti baš toliko komplikacija. polazi mi za rukom da čitam blob polja preko funkcije koja kreira blobstream iz polja databaze. kod za ovu funkciju sam našao na internetu i definicija funkcije izgleda ovako:

1. function JpegStartsInBlob
2.          (PicField:TBlobField):integer;
3. var
4.  bS     : TADOBlobStream;
5.  buffer : Word;
6.  hx     : string;
7. begin
8.  Result := -1;
9.  bS := TADOBlobStream.Create(PicField, bmRead);
10.  try
11.   while (Result = -1) and
12.         (bS.Position + 1 < bS.Size) do
13.   begin
14.    bS.ReadBuffer(buffer, 1);
15.    hx:=IntToHex(buffer, 2);
16.    if hx = 'FF' then begin
17.      bS.ReadBuffer(buffer, 1);
18.      hx:=IntToHex(buffer, 2);
19.      if hx = 'D8' then Result := bS.Position - 2
20.      else if hx = 'FF' then
21.       bS.Position := bS.Position-1;
22.    end; //if
23.   end; //while
24.  finally
25.   bS.Free
26.  end;  //try
27. end;

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

Malo kompleksan nacin da citas blob... sta mislis o ovome?

0. query.sql.text:='select BLOB_POLJE from TABELA where USLOV';
1. query.open;
2. ms:=TMemoryStream.create;
3. try
4.   TBlobField(query.fields[0]).SaveToStream(ms);
5.   query.close;
6.   ms.position:=0;
7.   // sad ti je blob u memory streamu i mozes da mu radis sta hoces,
8. finally
9.  ms.free;
10. end;

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

lepo izgleda. evo upravo to pokušavam, međutim uporno mi izbacuje JPEG error #53!

doduše, pošto meni slika treba da se prikaže kad je polje već selektovano od strane korisnika, zašto ne bi moglo i

0. TBlobField(ADTable1.fields[BrojKoloneUKojojJeSlika]).SaveToStream(ms);

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

Problem je sto slika nije zapisana kako valja. Sledeci put je zapishi sam.. slicna procedura

update TABELA set BLOB_POLJE = :param where USLOV

TBlobField(query.params[0]).LoadFromStream(ms,ftBlob);

naravno, predhodno si stavio JPG u stream

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

Inace slici moze da se pristupa kao binarnoj datoteci pa posle odkrijes sta ti je sta u zaglavlju to imas i na onoj vikipediji ili tako slicnim stranicama


malo je komplikovano ja sam radio nesto jednostavno uzimao sam svaki bajt po bajt i to prikazivao u memo kontroli mislim da se nesto slicno moze i iskoristiti da pristupas slici bajt po bajt

HH

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

Nema potrebe za tim. imaju komponente, osim TImage koje prepoznaju sve formate. Samo stavis LoadFromStream.

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

Eto imalo nemalo potrebe mogao bi svaki fajl da otvaras tako bez neke potrebe da imas toliko komponenate


Tempring

HH

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

Pitanje je da li zelis sam sebi da dokazes da si dobar programer ili ti treba da odradis posao na najlaksi i najbrzi nacin.
Seti se: TIME = MONEY

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

Sve je to relativno.....

U svakom slucaju dobro je i to znati ja nisam znao ali sam naucio....

Ko zna mozda mi nekada bas ta stvari i zatreba....


HH