السلام عليكم
اخوتي لقد حيرني خطا وارجوا المساعدة
كما ذكرت سابقا اني في مشروع التخرج وعملة بلغة asp 90% واستعملة لغة الدلفي للعرض
وبعض الامور كنقل الملفات الى السرفر ftp او جلبها وسكان للصور وطباعة الطلبيات والفواتير
استعملت WebBrowser ليتم التقاط الصفحات التي صنعتها بالاسبي
العمل
لعرض فورم التحكم بالطابعة
procedure TMainForm.PsetupExecute(Sender: TObject);
var
status: OLECMDF;
begin
status:= WebBrowser1.QueryStatusWB(OLECMDID_PRINTPREVIEW);
if (status and (OLECMDF_SUPPORTED or OLECMDF_ENABLED)) > 0 then
WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT);
end;
للطباعة
procedure TMainForm.printExecute(Sender: TObject);
var
status: OLECMDF;
begin
status:= WebBrowser1.QueryStatusWB(OLECMDID_PRINT);
if (status and (OLECMDF_SUPPORTED or OLECMDF_ENABLED)) > 0 then
WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT);
end;
المشكل
رسالة خطاء
*********************************************
"محاولة إبطال هدف افلات لم يتم تسجيله "
*********************************************
ارجوا المساعدة وان كان هناك حل اخر لطبع صفحة من WebBrowser1
فلا تبخلوني والله يجازيكم خيرا
************
دائما باتي معكم