ارسال image ذخیره شده در دیتا بیس به فست ریپورت یا هر گزارش دیگر

[ELI994]

void __fastcall TForm1::OpenClick(TObject *Sender)
{
OpenDialog1->InitialDir = "D:";
OpenDialog1->FileName = "" ;
OpenDialog1->Filter = "all|*.*";
if (OpenDialog1->Execute())
Image1->Picture->LoadFromFile(OpenDialog1->FileName);
Image1->Stretch = "True";
String File ;
File = OpenDialog1->FileName;
LBLImage->Text = File;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveClick(TObject *Sender)
{
Q1->SQL->Clear();
Q1->SQL->Add(" select * From Picture Where Id = '" + Id->Text + "'" );
Q1->Active = true;
if( Q1->RecordCount )
{
Q1->SQL->Clear();
Q1->SQL->Add( " Update Picture set Id = '" + Id->Text + "'");
Q1->SQL->Add( " , LBLImage = '" + LBLImage->Text + "'");
Q1->SQL->Add( " Where Id = '" + Id->Text + "'");
Q1->ExecSQL();
}
else
{
Q1->SQL->Clear();
Q1->SQL->Add( " Insert into Picture(Id,LBLImage)");
Q1->SQL->Add( " values('" + Id->Text + "', '" + LBLImage->Text + "')");
Q1->ExecSQL();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShowClick(TObject *Sender)
{
Q1->SQL->Clear();
Q1->SQL->Add(" select * From Picture Where Id = '" + Id->Text + "'");
Q1->Active = true;
if( Q1->RecordCount )
{
LBLImage->Text = Q1->FieldByName("LBLImage")->AsString;
Edit1->Text = Q1->FieldByName("Id")->AsString;
}
else
{
LBLImage->Text = "" ;
}
String File ;
File=LBLImage->Text ;
Image1->Picture->LoadFromFile(File);

[ELI994]

اینم بگم من آدرس فایل رو دیتا بیس ذخیره کردم و توی ریپورت نمی تونم اون رو بخونم . لطفا راهنمایی کنین

[ELI994]

کسی نتونست یه راه حل پیدا کنه

[BORHAN TEC]

سلام
انجام این کار ساده است. اگر در داخل محیط Fast Report دقت کنید می بینید که در کنار سربرگهای Paga1 وData سربرگ دیگری به نام Code وجود دارد که در درون آن می توانید کدهای خود را به یکی از زبانهای PascalوC++‎‎‎و Basic و JScript بنویسید و کاری کنید که عکس مربوطه از مقدار فیلد مربوطه که در حقیقت آدرس فایل عکس هست لود شود. اسکریپت هایی که نیاز است بسیار شبیه به همان کدهایی هست که می نویسید. توجه داشته باشید که امکان نوشتن اسکریپت در آن نسخه از Fast-Report که به همراه دلفی نصب می شود وجود ندارد و بهتری است که به جای آن نسخه Enterprise مربوط به Fast Report را نصب کنید. طریقه نوشتن این اسکریپت ها هم در لینک زیر توضیح داده شده است که فکر نمی کنم خواندن همه آن بیشتر از یک ساعت هم زمان ببرد:
http://www.fast-report.com/documentation/UserMan/index.html?script.htm
لطفاً از این به بعد موقعی که می خواستید پست بزنید کدهای خود را در تگ کد بنویسید تا خوانایی بیشتری داشته باشد.:چشمک:
موفق باشید...