[ Sisko.Marcetic @ 09.03.2011. 13:29 ] @
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 |