[es] - Ucitavanje slika iz Access baze pomocu ado kom.

Sisko.Marcetic
Skobalj

Član broj: 153060
Poruke: 31
*.static.isp.telekom.rs.

Profil

Ucitavanje slika iz Access baze pomocu ado kom.

^{09.03.2011. u 13:29 - pre 159 meseci}

elem pošto me mrzi da učim php a volim cpp napravio sam par procedura za dimaničku izradu web strane koja je u ovo slučaju
TStringList sve lepo radi i formatira dok ne dođe do trenutka da učita sliku
e tada tvrdoglavo učita samo prvu sliku iako ih ima čak dve

evo koda procedure koja ubacuje slike

Code:

void  TfrmBlaBla::InsetImages(TStringList *sl)
{
TADOQuery *q = frmPretraga->ADOQSlike;
Graphics::TBitmap * bitmapa= new Graphics::TBitmap;
TMemoryStream *mStream = new TMemoryStream;

char c = char(34);
AnsiString fName;
int i = q->RecordCount;
int j =1;
  TBlobField *bField;
ShowMessage("Ima slika " + AnsiString (i));  //  i on potvrdi da ima dva zapisa tj dve različite slike teramo dalje .....

q->First();

  do
   {
        bField =  dynamic_cast<TBlobField *>(q->FieldByName("Slika"));  // tako se mastovito naziva field u ms access bazi koji sadrzi slike
        bField->SaveToStream(mStream);
        mStream->Position = 0;
        bitmapa->LoadFromStream(mStream);
        fName= "image" + AnsiString(j++) + ".bmp";
        bitmapa->SaveToFile(fName);
        sl->Add("<img width = " + AnsiString(c) + "100" + AnsiString(c) + " src=" + AnsiString(c) + fName + c + ">");
        q->Next();
    }while(!q->Eof);

  delete bitmapa, mStream;

}

neke linije koda su visak u sluzbi trazenja logicke greske, napominjem da druge forme programa bez ikakvih problema ucitavaju i prikazuju slike iz accesss baze

bcb 6
access 2007

Odgovor na temu

Sisko.Marcetic
Skobalj

Član broj: 153060
Poruke: 31
*.static.isp.telekom.rs.

Profil

Re: Ucitavanje slika iz Access baze pomocu ado kom.

^{10.03.2011. u 09:10 - pre 159 meseci}

e nasao sam ga
evo ako nekom ustreba neka zna da TMemoryStream treba prazniti

Code:

do
{
mStream->Clear();
..........

sami sebe zaplićemo, sami sebe rasplićemo

Odgovor na temu