مشکل با OCX

[SUNMOON]

سلام خدمت همه دلفی کاران عزیز:لبخند:
من یه مشکل با یه OCX دارم به این صورت که میخوام وقتی برنامم به یه سیستم دیگه منتقل میشه خودش اون OCX رو نصب کنه. یه کد هم تو سایت پیدا کردم اما جواب نداد.لطفا راهنمایی کنید . در ضمن اگه میشه ocx رو به صورت component در اورد و انوقت دیگه مشکل نصب در سیستم دیگه نداشته باشه اون رو هم بگید

[cybercoder]

InstallShield

[SUNMOON]

از طریق خود دلفی چی؟

[cybercoder]

shell exec و regsvr32

[SUNMOON]

جواب نمیده؟:متفکر:

[Valadi]

این مشکل شما را حل می کنی
ابتدا باید اکتیو ایکس ریسورس کنی

implementation

{$R *.dfm}
{$R MoviePlayer.RES} /////
procedure TForm1.FormCreate(Sender: TObject);
var
SystemDir : array[0..MAX_PATH] of Char;
Fres: TResourceStream; /////
Ffile: TFileStream; /////
SWFDir: String;
begin
GetSystemDirectory(@SystemDir,MAX_PATH);
SWFDir := SystemDir;
//check whether the sw-flash ocx is already installed
if fileexists(SWFDir+'MoviePlayer.ocx')=false then begin
//create directories if needed and extract file from resource.
{$i-} //compiler directive to suppress i/o error messages
{$i+}
Fres := TResourceStream.Create(0,'MoviePlayer',RT_RCDATA); /////
Ffile := TFileStream.Create(SWFDir+'MoviePlayer.ocx',fmCrea te); /////
try
Ffile.CopyFrom(Fres,Fres.Size); /////
finally
Fres.Free; /////
Ffile.Free; /////
end;
//register ocx (simple but useful)
Winexec(PChar('regsvr32 /s '+SWFDir+'MoviePlayer.ocx'),SW_HIDE); /////
end;

end;

[SUNMOON]

چطوری؟ البته من یه کد دیگه از خود شما تو سایت پیدا کرده بودم که جواب نداد

[SUNMOON]

مشکل من با OCX ها حل نشده ها:لبخند:
(مخصوصا باActive skin )

[Valadi]

جناب SUNMOON

البته من یه کد دیگه از خود شما تو سایت پیدا کرده بودم که جواب نداد
عزیزم چنین چیزی امکان نداره بدلیل اینکه قبل از اینکه کدی را بنویسم حتما خود تست می کنم و بعد در سایت قرار می دهم


ابتدا باید اکتیو ایکس ریسورس کنی

چطوری؟

شما پس اطلاعات تان در زمینه ریسورس کمه در سایت سرچ کنید مطالبی هست

ضمنا کد که میگید جواب نداده لینک را قرار بدید تا بخاطر شما مجددا تست کنم

با تشکر

[SUNMOON]

جناب Valadi لینک رو نتونستم پیدا کنم ولی صفحه رو برای دانلود میزارم . در ضمن ما مبتدی ها هم باید یادبگیریم بلاخره دیگه :لبخند:

[Valadi]

جناب SUNMOON
این فایل ضمیمه را دیدم این مشکلی نداره ضمنا این کدی که هست فقط فایل ocx یا dll را نصب می کنه
اون اکتیو ایکسی که درون پروژه ات داری بفرس تا مشکلتو حل کنم

در ضمن ما مبتدی ها هم باید یادبگیریم بلاخره دیگه

بر منکرش ....
من پیشنهاد می کنم شما ابتدا روی زبان انگلیسی و بعد پاسکال و .... کار کنید


موفق و موید باشید