مشکل با ترازوی محک MahakScaleOCX در دلفی 7

[az-navaei]

سلام.

من می خوام که از ترازوی محک اطلاعات دریافت کنم activex آنرا نصب می کنم ولی کامپوننت آنرا در دلفی 7 اضافه نمی کنه در صورتی که در دلفی2009 نشون میده.

توی سایتی نوشته بود باید یونیت SMDOCX_TLB را اضافه کنید و از کلاس MahakScaleOCX استفاده نمایید.

من این کار را انجام دادم برنامه اجرا می شود ولی به خاطر این که MahakScaleOCX=nil بود پیغام access violation می دهد.

فایل ها را ضمیمه کردم

64834

این هم کد


var
MahakScale:MahakScaleOCX;
PortNum:Integer;
begin
PortNum:=1;
MahakScale_.CommPort:=PortNum;با تشکر

[mohsen24000]

شما باید اکتیوایکس مربوطه را نصب یا import کنی بعد یه instance از اون رو روی فرمت قرار بده و مابقی کار خودش انجام میشه و فایل مربوطه به uses اضافه میشه...
از منوی project گزینه import type library میتونی اون اکتیوایکس رو import کنی و یا از منوی component گزینه import activex این کار رو انجام بده...

MahakScale_
MahakScale درسته!

[az-navaei]

جناب mohsen24000 (http://barnamenevis.org/member.php?24095-mohsen24000)

من این کار را قبلا انجام دادم ولی متاسفانه به دلفی 7 اضافه نمی شود ولی در دلفی 2009 جواب می دهد.

من فایل ها را در تاپیک اولم ضمیمه کردم اگر ممکنه شما با آن ها تست کنید و من را راهنمایی نمایید.

با تشکر

[az-navaei]

جناب mohsen24000 (http://barnamenevis.org/member.php?24095-mohsen24000)
با تشکر از توجه شما .MahakScale_ اشتباه تایپی موقع مطرح کردن سوال بود. و در برنامه درسته.


من قبلا بارها با activeX های مختلف کار کردم ولی متاسفانه َشیMahakScaleOCX به دلفی 7 اضافه نمی شه. در همین سایت افراد دیگه ای با این مشکل مواجه شدند.

ولی به نتیجه نرسیدن.

آخرین پیشنهادی که بهشون شده همون اضافه کردن یونیت SMDOCX_TLB و استفاده از کلاس MahakScaleOCXاست که برنامه اجرا میشه و به کدها گیر نمی ده ولی موقع اجرای کدها به نظر من چون آبجکت MahakScale ساخته نشده پیغام access violation را می ده.

با تشکر ممنون میشم اگر کسی می دونه راهنمایی کنه.

[BrineMahdi]

سلام , خسته نباشید
فکر کنم این راه حل درست باشه
یونیت SMDOCX_TLB رو به مسیر پروژه تون اضافه کنید و تو پروژه Add کنید.
بعد این برای ساختن شی محک کد زیر را اضافه کنید .
var
MahakObj:MahakScaleOCX;
MahakInterface:IInterface;
I:Integer;
begin
MahakInterface:=CreateComObject(CLASS_MahakScaleOC X);
MahakInterface.QueryInterface(IID__MahakScaleOCX,M ahakObj);
I:=1;
m.CommPort:=I;
end;