Printable View
سلام. من میخوام یه سری سوال و گزینه عکسدار و بی عکس گزارش بگیرم.
1- تو یه قسمت (کادر کوچک ) فرم دلفی چجور ورد رو باز کنم
2-محتویاتش رو چجور تو بانک sql ذخیره کنم(فیلدش از چه نوعی باشه و با چه دستوری)؟
3-چجور بازیابی کنم که گزارشم رو بهم نریزه؟ دقیقا همانکادر متن رو بذاره نه بیشتر.
ممنون
دوستانی که از word استفاده میکنن منتظر راهنمایی شما هستم.
اگه لینک مقاله ای چیزی باشه که خیلی خیلی ممنون میشم
سلامنقل قول:
ميشه بيشتر توضيح بديد ميخواهيد چيكار بكنيد.
1- هدف شما باز كردن فايل ورد است يا استخراج محتويات آن؟
2- ميتونيد از EMS Advanced Import Component Suite استفاده كنيد.
3- چرا بايد گزارش را به هم بريزه؟! شما ميخواهيد متن يك فايل ورد را در گزارش وارد كنيد و اونو چاپ كنيد؟ براي اين كار شايد بهتر باشه محتواي فايل ورد را بصورت RTF استخراج كنيد، اينطوري ميتونيد از QRRichText براي نشان دادن استفاده كنيد.
سلام. من تو یه فرم میخوام محتویات سوال و 4 گزینه رو ذخیره کنم.
هرکدوم اینا ممکنه عکس و فرمول و جدول هم داشته باشه. برای ذخیره در sql الان دارم متن سوالات و 4 گزینه رو جدا جدا به صورت text و همه عکسها رو در یک عکس مشترک ذخیره میکنم. الان میخوام هر گزینه با عکسش لینک باشه.
نمیدونم آیا ارتباط با word راه حل خوبیه یا نه؟ یعنی هر گزینه همراه عکسش از یک فیلد و از word خونده بشه.
ذخیره و استخراج محتوای این سوالات چطوری باشه ؟
من با qr کار میکنم . اندازه های کادر سوال و گزینه ها در گزارش نهایی قاعدتا" متغیر است. text که بود برنامه نویسی کردم و با توجه به طول متن اندازه سوال و گزینه ها سایزشون درست در میومد ولی الان اگه بخوام با فرمت جدید ذخیره و بازیابی در گزارش رو انجام بدم مشکلی نخواهم داشت ؟
راستی ما office 2003 داریم.
بیصبرانه منتظرم. ممنون
سلامنقل قول:
خوش به حالتون.
خب پس يك سيستم سوال و جواب 4 گزينه ميخواهيد طراحي كنيد.
روي سيستم مشابه اي كار كردم و درحال حاظر هم داره كار ميكنه (البته بصورت online و روي اينترنت) و بهترين راه براي ذخيره و نشان دادن سوالات استفاده از RTF است. شما سوالات و جوابها را در Word وارد كنيد، مهم نيست كه متن شما داراي فرمول يا تصوير باشد، بعد سند را بصورت RTF ذخيره كنيد، وقتي سند بصورت RTF ذخيره شود كل سند تبديل به متن ميشود و خبري از لينك خارجي و ... نيست، مزيتهاي اين كار : ميتونيد فايل RTF بدست آمده را خيلي راحت در ديتابيس ذخيره و از آن بازيابي كنيد، ميتوانيد اين فايل را قبل از ذخيره در ديتابيس فشرده كنيد، چون بصورت متن است قابليت بالايي براي فشرده شدن دارد.
شما بايد سعي كنيد برنامه اي را كه مينويسيد مستقل از نرم افزار خاصي باشد، يعني نبايد انتظار داشته باشيد كاربر شما حتما office 2003 روي سيستم نصب داشته باشد تا بتواند از برنامه شما استفاده نمايد.
يك سوال ديگه : شما قصد داريد از اين سوالات در برنامه استفاده كنيد يعني كاربر سوالات را در برنامه شما مشاهده كند و احتمالا به آنها پاسخ دهد ، يا ميخواهيد برنامه اي بنويسيد كه از يك بانك سوالاتي را استخراج كند و بعد آنها را روي كاغذ چاپ كنيد؟
براي گزارش گيري و چاپ هم ميتوانيد از كامپوننت نمايش RichText خود QR استفاده كنيد و يا از كامپوننت TRichView استفاده كنيد كه يك ابزار براي نمايش فايل(نه ويرايش) در اختيار شما قرار ميدهد.
لطفا حذف شود!
سلام.
این هوا اجازه نداد بیام سر کار . تو خونه هم اینتر نت ندارم. برای همین الان جواب میدم.
نان فورس جان من رو کاغذ استخراج انجام میدم .
لینک اون برنامتون رو میشه بدین؟
+ راهنمایی در مورد نحوه استفاده از Ole برای Word. ممنون
سلامنقل قول:
با اين كد ميتونيد فايلهاي doc را به rtf تبديل كنيد :
(كافيه توي يك حلقه بيندازيد تا كل فايلهاتون به rtf تبديل بشوند)
براي ذخيره در ديتابيس :کد:uses
ComObj;
var
WordApp: Variant;
begin
WordApp := CreateOleObject('Word.Basic');
if not VarIsEmpty(WordApp) then
begin
WordApp.FileOpen('d:\1.doc');
WordApp.FileSaveAs(Name := 'c:\temp_bb.rtf', Format := 6);
WordApp.AppClose;
WordApp := Unassigned;
end
else
ShowMessage('Could not start MS Word');
end;
قسمت فشرده سازي را خودتون بايد درست كنيد، ميتونيد از VCLZip براي فشرده كردن stream استفاده كنيد، اينطوري هم جاي كمتري توي ديتابيس ميگيره و هم امنيت بالاتر مي رود.کد:var
RTFStream : TMemoryStream;
RTFStream := TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(RTFStream);
RTFStream.Position := 0;
// CompressStream(RTFStream);
RTFStream.Position := 0;
ADOTable1.Edit;
ADOTable1.Insert;
TBlobField(ADOTable1.FieldByName('fldRTF')).LoadFromStream(RTFStream);
ADOTable1.Post;
RTFStream.Free;
نوع فيلد در ديتابيس اكسس : OLE Object
براي خواندن از ديتابيس :(بعد از جستجوي ديتابيس)
اون برنامه اي كه گفتم با دلفي نوشته نشده و براي استفاده از برنامه هم بايد كدكاربري/كلمه عبور داشته باشيد، ولي عكسهاي زير محيط برنامه را نشان ميدهد :کد:OutStream := TMemoryStream.Create;
TBlobField(ADOTable1.FieldByName('fldBlob')).SaveToStream(OutStream);
OutStream.position:=0;
DecompressStream(OutStream);
OutStream.position:=0;
RichView1.LoadRTFFromStream(OutStream);
RichView1.Format;
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
براي چاپ فكر كنم هم بتونيد از QRاستفاده كنيد و هم از TRichView
خیلی خیلی ممنون. زنده باشین .