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;
}
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