باز شدن متن توسط برنامه من!!!

[1485159]

من میخوام متن توسط برنامه من باز بشه و متنش توی یه ادیت ریخته بشه ...
حالا کسی میتونه کمکم کنه!!!
اگه هم راحل برنامه نویسی رو بگید و هم کلید هایی که تو رجیستری نیازه ممنون میشم.....
ممنون.
شاید موضوع تکراری باشه ..

[as13851365]

منظور شما از متن چی هست ؟

شما می خواهید یک فایل منحصر به فرد را با برنامه خودتان باز کنید ( وقتی که روی یک فایل متنی و یا ... دابل کلیک کردید برنامه شما باز بشه و اون فایل را باز کنه و متن را داخل یک ادیت نشان بده ؟ )

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

[1485159]

آره منظورم همینه!!!
جست و جو کردم پیدا نکردم!
اونوقت باید فایل اجرایی رو تویه مسیر مشخص قرار بدیم!؟..
ممنون.

[1485159]

کسی نیست جواب بده!؟..

[Saeed_m_Farid]

آره منظورم همینه!!!
جست و جو کردم پیدا نکردم!
اونوقت باید فایل اجرایی رو تویه مسیر مشخص قرار بدیم!؟..
ممنون.

کسی نیست جواب بده!؟..

دوستان حق دارن شك كنن به سوالتون آخه سوالتون يا خيلي مبهمه يا خيلي ساده : اگه منظورتون load يه فايل text تو Memo هست كه كد ساده زير با فرض گذاشتن يه دكمه و يه memo رو فرمت جواب ميده (البته اين OpenDiolog فقط فايلهاي Text و سورس پاسكال رو فيلتر ميكنه اگه نميخواين اين اتفاق بيفته فيلتر رو برداريد) :

procedure TForm1.Button1Click(Sender: TObject);

begin

  with TOpenDialog.Create(nil) do try

    Filter := 'Text files (*.txt)|*.TXT|Pascal files (*.pas)|*.PAS';

      if Execute then begin

      Memo1.Lines.LoadFromFile(FileName);

    end;

  finally

    Free;

  end;

end;

ولي اگه منظورتون يه چيز ديگه اس واضح تر بگيد تا توضيح داده بشه ...

[1485159]

ولي اگه منظورتون يه چيز ديگه اس واضح تر بگيد تا توضيح داده بشه ...

مثلا اگه فایل txt رو open with کرد و با برنامه من باز کرد متنش توی یه memo ریخته بشه!!
همین.
ممنون.

[1485159]

البته اين OpenDiolog فقط فايلهاي Text و سورس پاسكال رو فيلتر ميكنه اگه نميخواين اين اتفاق بيفته فيلتر رو برداريد) :

منظور از فیلتر چیه!؟..

[Felony]

برای این کار باید فایلتون رو در ریجستری ریجستر کنید و سپس به وسیله ی تابع ParamStr در هنگام اجرای برنامتون آدرس فایلی که به برنامه پاس داده شده رو بخونید و اون رو باز کنید .

[1485159]

برای این کار باید فایلتون رو در ریجستری ریجستر کنید و سپس به وسیله ی تابع ParamStr در هنگام اجرای برنامتون آدرس فایلی که به برنامه پاس داده شده رو بخونید و اون رو باز کنید .

الو..
صدا نمیاد..
بابا من که گفتم هم رجیستری رو باید چیکار کنم و هم ParamStr چیه!؟..

[1485159]

در ضمن چطور بفهمم که به برنامه پارامتر ارسال شده یانه!؟..ممنون.

[Saeed_m_Farid]

مثلا اگه فایل txt رو open with کرد و با برنامه من باز کرد متنش توی یه memo ریخته بشه!!
همین.
ممنون.

خوب همون كد پست شماره 4 جواب شماست (فيلتر هم يعني فقط اون نوع فايلها رو باز كنه).

برای این کار باید فایلتون رو در ریجستری ریجستر کنید و سپس به وسیله ی تابع ParamStr در هنگام اجرای برنامتون آدرس فایلی که به برنامه پاس داده شده رو بخونید و اون رو باز کنید .

جسارتاً، شما هم كه گير دادين به اين ParamStr، پارامتر ورودي فايل اجرايي چه ربطي به رجيستري داره؟ چرا موضوع رو مي پيچونيد؟ اون يه بحث جدا بود كه تموم شد!

1. براي پاس دادن از خط فرمان يا shortcut به برنامه اجرايي از پارامتر استفاده ميشه، كه ميشه مسير فايل متني رو از اين طريق به برنامه داد و بعد از ParamCount و ParamStr استفاده كرد، يه نمونه كد واسه اينكار رو هم ميتونين تو FormCreate ببينيد (البته يه Memo اولش بذاريد رو فرم) :

procedure TForm1.FormCreate(Sender: TObject);

var

  idx: Integer;

  sl: TStringList;

begin

  try

    Memo1.Lines.Clear;

    sl := TStringList.Create;

    for idx := 1 to ParamCount do begin

      if FileExists(ParamStr(idx)) then begin

        sl.LoadFromFile(ParamStr(idx));

        Memo1.Lines.Add(Format('File[%d] = %s : ', [idx, ParamStr(idx)]));

        Memo1.Lines.AddStrings(sl);

      end else

        Memo1.Lines.Add(Format('File[%d] = %s : not found!', [idx, ParamStr(idx)]));

    end;

  finally

    FreeAndNil(sl);

  end;

end;

2. ولي راه ديگه خوندن مسير فايل از رجيستري هست كه در اينصورت هم نيازي به دادن پارامتر به برنامه نيست، برنامه مستقيم ميره از رجيستري ميخونه، كه بحثش يه موضوع ديگه است ...

[1485159]

if FileExists(ParamStr(idx)) then begin

به نظر من چون قراره آدرس فایل تو سطر 1باشه بهتره به جای idx بنویسم 1نظر شما چیه!؟...

2. ولي راه ديگه خوندن مسير فايل از رجيستري هست كه در اينصورت هم نيازي به دادن پارامتر به برنامه نيست، برنامه مستقيم ميره از رجيستري ميخونه، كه بحثش يه موضوع ديگه است ... 

یعنی نباید تورجیستری کاری کرد که وقتی رو فایل متنی دابیل کلیک کرد به برنامهما پارامتر بفرسته!؟..

[Felony]

در مورد :

پارامتر ورودي فايل اجرايي چه ربطي به رجيستري داره ؟

یه سری به HKEY_CLASSES_ROOT در ریجستری بزنید و با محتویاتش آشنا شید تا بدونید برای اینکه یه فرمت خاصی از فایل ها با برنامه ی مورد نظرمون باز شن و بتونیم براشون آیکن در نظر بگیریم باید در این قسمت ثبت بشن !!!

و در مورد :

جسارتاً، شما هم كه گير دادين به اين ParamStr، چرا موضوع رو مي پيچونيد ؟ اون يه بحث جدا بود كه تموم شد !

خیلی جالبه ، بحث تموم شده ولی دقیقا جوابی که من به پست دادم رو به عنوان پاسخ به کاربر ارائه میدید !

[1485159]

یکی جواب پست 13 رو بده...

[Felony]

به نظر من چون قراره آدرس فایل تو سطر 1باشه بهتره به جای idx بنویسم 1نظر شما چیه!؟

بله درسته .

یعنی نباید تورجیستری کاری کرد که وقتی رو فایل متنی دابیل کلیک کرد به برنامهما پارامتر بفرسته!؟..

چرا ، اگر این کار رو نکنید به طور خودکار فایلهاتون با برنامتون باز نمیشن و باید یک بار OpenWith بکنیشون .

تا اونجا که یادمه باید تو HKEY_CLASSES_ROOT یه کلید به نام فرمت فایلت میساختی مثلا : xxx. بعدش داخل این کلید یه کلید با نام Shell و داخل اون یه کلید با نام Open و داخلش اون یه کلید با نام command و در اون یه string با محتوای آدرس برنامت ، تا با کلیک روی فایلها مورد نظر ادرس به عنوان پارامتر به برنامه فرستاده شه .

[Saeed_m_Farid]

به نظر من چون قراره آدرس فایل تو سطر 1باشه بهتره به جای idx بنویسم 1نظر شما چیه!؟...

این واسه حالتی هست که بخواین محتویات چند فایل رو تو Memo موردنظر نمایش بدین، اگه قراره فقط واسه یه فایل کار کنه، شما درست می گین.

یعنی نباید تورجیستری کاری کرد که وقتی رو فایل متنی دابیل کلیک کرد به برنامهما پارامتر بفرسته!؟..

این صحبت شما جدیده و تو سوال اولتون نبود! توضیحش رو پایین آوردم ...

یه سری به HKEY_CLASSES_ROOT در ریجستری بزنید و با محتویاتش آشنا شید تا بدونید برای اینکه یه فرمت خاصی از فایل ها با برنامه ی مورد نظرمون باز شن و بتونیم براشون آیکن در نظر بگیریم باید در این قسمت ثبت بشن !!!

چشم حتماً سر میزنم. اون موردی که شما می فرمایید بعداً مطرح شد (که با دابل کلیک، فایلهای txt. با برنامه ایشون باز بشه)؛ با اجازه شما SilverSoft، من جواب دوستمون رو بدم: برای اینکار (باز شدن فایلهای txt با برنامه شما) مقدار Default رو در HKEY_CLASSES_ROOT واسه کلید txt. معادل مسیر برنامه خودتون قرار بدید.

خیلی جالبه ، بحث تموم شده ولی دقیقا جوابی که من به پست دادم رو به عنوان پاسخ به کاربر ارائه میدید !

شاید من منظور شما رو درست متوجه نشدم، و توضیح اضافه دادم، عذر میخوام.

[1485159]

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

در ضمن مثلا برنامه من توسط یه فایل باز شده(تا حالا مشکلی نیست)بعد یه فایل دیگه رو باز میکنه من چطور میتونم کاری کنم که اون فایل دوم تو همون برنامه باز شه و دیگه برانامه 2 بار اجرا نشه!؟..(مثل مدیاپلیر ها)(نمیدونم که منظورم رو متوجه شدید یا نه!؟..
برا آیکون چیمار کنم!؟..
ممنون.
ممنون.

[Felony]

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

در ضمن مثلا برنامه من توسط یه فایل باز شده(تا حالا مشکلی نیست)بعد یه فایل دیگه رو باز میکنه من چطور میتونم کاری کنم که اون فایل دوم تو همون برنامه باز شه و دیگه برانامه 2 بار اجرا نشه!؟..(مثل مدیاپلیر ها)(نمیدونم که منظورم رو متوجه شدید یا نه!؟..
برا آیکون چیمار کنم!؟..
ممنون.
ممنون.

تو پست قبلیم که براتون توضیح دادم برای یه فرمت جدید چی کار کنید .
برای آیکن هم در همون کلید فرمت فایلتون در کنار کلید shell یه کلید با نام DefaultIcon بسازید و در اون یه string با محتوای آدرس فایل آیکن یا فایل اجرایی که میخواهید آیکن اون نمایش داده شه رو وارد کنید .

Saeed_m_Farid
شاید من منظور شما رو درست متوجه نشدم، و توضیح اضافه دادم، عذر میخوام.

من هم از شما معذرت میخوام ، کمی تند رفتار کردم .

[hojjatcroos]

می تونید از یک MDI Application استفاده کنید یا از اون الگو بگیرید

[1485159]

برای آیکن هم در همون کلید فرمت فایلتون در کنار کلید shell یه کلید با نام DefaultIcon بسازید و در اون یه string با محتوای آدرس فایل آیکن یا فایل اجرایی که میخواهید آیکن اون نمایش داده شه رو وارد کنید .

ممنون.

می تونید از یک MDI Application استفاده کنید یا از اون الگو بگیرید

الو ...
صدا نمیاد ...

الو..
صدا قط و وصل میشه!!!!
....

[Felony]

می تونید از یک MDI Application استفاده کنید یا از اون الگو بگیرید

منطورشون برنامه هایی مثل word هست که با باز کردن یه فایل جدید فایل قبلی مثل NotePad بسته نمیشه و تو یه فرم فرزند جدید نمایش داده میشه .

[Saeed_m_Farid]

در ضمن مثلا برنامه من توسط یه فایل باز شده(تا حالا مشکلی نیست)بعد یه فایل دیگه رو باز میکنه من چطور میتونم کاری کنم که اون فایل دوم تو همون برنامه باز شه و دیگه برانامه 2 بار اجرا نشه!؟..(مثل مدیاپلیر ها)(نمیدونم که منظورم رو متوجه شدید یا نه!؟..

موضوع زیاد ساده ای نیست که بشه تو یه پست توضیح داد، جناب کشاورز یه راهنمایی در این مورد کردن، درمورد IPC یا Inter-process Communication بگردین، برای شروع هم میتونین دوتا روش واسه اینکار امتحان کنید :

1. اولی با ارسال پیام بین پروسسها، به این صورت که برنامه سرورتون (همونی که با دابل کلیک باز شده) باید یه listener واسه پیغامهای دریافتی داشته باشه، یعنی یه ویندوز پروسیجر تو برنامه تون داشته باشین که به پیامهای دریافتی عکس العمل نشون بده؛ و از طرف دیگه قابلیت هندل فایلهای مختلف تولید شده با پسوند خودتون رو داشته باشه، یعنی مثلا بازاء هر پیامی - SendMessage رسیده به برنامه شما - بتونه یه تب جدید واسه اون فایل باز کنه و یه Memo رو با محتویات اون فایل مقداردهی کنه و ... (یه مثال ساده از IPC رو میتونید اینجا ببینید)
2. روش دیگه استفاده از پایپ هست، که نمیدونم آشنایی دارید یا نه؛ میتونید یه سرور Pipe واسه اینکار ایجاد کنید و منتظر رسیدن بافر از سمت یه کلاینت باشید که به سمت سرور شما پست میشه. بعد عملیات موردنظرتون رو، روی این بافر انجام بدین.

اگه علاقه داشتین و حوصله تون سر نرفت، ادامه بدیم ...

[1485159]

ممنون
فقط اگه به من بگید که چطور با برنامه ام به برنامه دیگه ای مثلا پیامی بفرستیم با متن:ali
و با اونیکی چطور بفهمیم که بیامی به برنامه ما فرستاده شده یا نه!؟..
ممنون.

[1485159]

کسی نیست جواب بده!؟..

[1485159]

بابا جان من جواب بدین!!
دلفی رو یدادی نداره که هنگام در یافت پارامتر به ما خبر بد]!؟..

[hojjatcroos]

با رویداد omessage جزء Tappilication می تونید این کار رو انجام بدهید

[Saeed_m_Farid]

ممنون
فقط اگه به من بگید که چطور با برنامه ام به برنامه دیگه ای مثلا پیامی بفرستیم با متن:ali
و با اونیکی چطور بفهمیم که بیامی به برنامه ما فرستاده شده یا نه!؟..
ممنون.

کسی نیست جواب بده!؟..

بابا جان من جواب بدین!!
دلفی رو یدادی نداره که هنگام در یافت پارامتر به ما خبر بد]!؟..

اولا همیشه همینطوری نیست که شما یه پست بدی، بچه ها 2 دقیقه بعد باید جوابتو بدن! یکمی زحمت بکش جستجو کن ببین جاهای دیگه چی گفتن، تو خود سایت در این مورد (که بنده دو تا سرنخ بهتون دادم تو پست قبلی ام) نکات متنوعی مطح شده که شما نگشتین؛ اگه هم فکر میکنی مطلبی نیست! یه مقدار صبر باید بکنی، و پست اضافی ندی، سنگک پزی نیست!

ثانیا : تا اونجاییکه من میدونم همچین رویدادی تو دلفی نداریم، برای اینکار چون با این پستها میشه فهمید که آدم صبوری نیستین، من راه اول رو واستون باز میکنم (راه دوم پیچیده تر هست و با روحیه شما جور در نمیاد)

شما برای اینکار باید از روالهای ارسال پیام خود ویندوز استفاده کنید؛ توضیحات مفصلی در مورد این مباحث وجود داره که میتونید از MSDN و تاپیکهای مختلف یاست درمورد اونا کسب اطلاع کنید، بنده با فرض اطلاع شما از نحوه عملکرد پیامهای ویندوز، راه حل رو ارائه میدم :

1. قبل همه شما باید یه ثابتی برای ارتباط بین برنامه ها داشته باشید که با شماره پیامهای ویندوز قاطی نشه :

   const
   
       WMU_OUT_MESSAGE   = WM_USER + 1;
   
   

2. عمل بعدی ایجاد همون رویدادی هست که شما می خواستید، یعنی جایی که به این درخواست رسیدگی بشه، برای اینکار شما باید یه windows procedure بنویسین، تا اگه پیغام رسیده، همونی بود که شما میخواستین، بهش رسیدگی بشه و درغیر اینصورت روال ویندوزی در مورد اون پیگیری بشه، با حدس من در مورد کارکرد برنامه شما، مثلا یه همچین procedure ای میشه :

   
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   
   
   //    in TForm1 public section
   
       procedure MyWndProc(var wndMsg: TMessage); override;
   
   
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   
   
   procedure TForm1.MyWndProc(var wndMsg: TMessage);
   
   var
   
     p: PChar;
   
   begin
   
     try
   
       case wndMsg.Msg of
   
   
   
         WMU_OUT_MESSAGE:begin
   
             p := PChar(wndMsg.WParam);
   
             if p <> nil then begin
   
                 Memo1.Lines.Add(p);
   
                 FreeMem(p);
   
             end;
   
         end;
   
   
   
         else inherited;
   
       end;
   
     except on exp:Exception do
   
       Memo1.Lines.Add('Exception on MyWndProc['+IntToStr(wndMsg.Msg)+']: '+exp.Message);
   
     end;
   
   end;
   
   
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   

   ضمنا با این روال، شما یکی از پارامترهایی که میتونستین استفاده کنید یعنی LParam رو فعلا استفاده نکردید، به این ترتیب بعدا در صورت گسترش برنامه میتونین از اون هم برای کارهای دیگه (مثلا نحوه نمایش متن موردنظر) استفاده کنید و ...
3. قسمت آخر فرستادن پیام از یه برنامه دیگه به این برنامه است؛ برای اینکار همونطوریکه در بند قبل دیدین، باید آدرس رشته موردنظر رو به برنامه سرور بدین؛ برای اینکار من از رشته مورد نظر یه instance تو RAM درست میکنم و اون آدرس رو به روال هندل پیام که تو بند قبل نوشتیم میدم :

             
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   
   
   procedure SendMyMessage(wHnd: THandle; mess: string); 
   
   var
   
     function strdup(s: string): PChar;
   
     begin
   
       Result  := AllocMem(Length(s) + 1);
   
       StrPCopy(Result, s);
   
     end;
   
   begin
   
       // wHnd is your server handle
   
       PostMessage(wHnd, TH_EVENT_OUT_MESSAGE, WPARAM(strdup(mess)), 0);
   
   end;
   
   
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   
   
   

   البته باید توجه کنید که برای استفاده از این تابع باید هندل سرور رو داشته باشید، که روش اینکار درصورت جستجو همه جا هست، برای نمونه هم تو سایت Torry میتونید یه نمونه اش رو پیدا کنید، ولی با فرض اینکه شما یه instance از سرورتون دارین میتونید از یکی از توابع زیر برای اینکار استفاده کنید (توجه کنید که تابع اول برای موقعی هست که سرور تو یه ماشین دیگه اس ...) :

   
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   
   
   function GetPid(sService: String; sMachine: String = '') : Cardinal;
   
   var
   
     schm,
   
     schs: SC_Handle;
   
     SC_STATUS_TYPE: Cardinal;
   
     lpBuffer: _SERVICE_STATUS_PROCESS;
   
     cbBufSize: DWORD;
   
     pcbBytesNeeded: LPDWORD;
   
   begin
   
     //open the service manager  (defined in WinSvc)
   
     schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_CONNECT);
   
     //set the status type to SC_STATUS_PROCESS_INFO
   
     //this is currently the only value supported
   
     SC_STATUS_TYPE := $00000000;
   
     //set the buffer size to the size of the record
   
     cbBufSize := sizeof(_SERVICE_STATUS_PROCESS);
   
     if (schm>0) then
   
     begin
   
       //grab the service handle
   
       schs := OpenService(schm, PChar(sService), SERVICE_QUERY_STATUS);
   
       if (schs>0) then
   
       begin
   
         //call the function
   
         QueryServiceStatusEx(
   
         schs,
   
         SC_STATUS_TYPE,
   
         lpBuffer,
   
         cbBufSize,
   
         pcbBytesNeeded);
   
         CloseServiceHandle(schs);
   
       end;
   
       CloseServiceHandle(schm);
   
     end;
   
     Result := lpBuffer.dwProcessId;
   
   end;
   
   
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   
   
   function GetProcessID(ProcessName:string):Integer;
   
   var
   
     Handle:tHandle;
   
     Process:tProcessEntry32;
   
     GotProcess:Boolean;
   
   begin
   
     Handle:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,0)  ;
   
     Process.dwSize:=SizeOf(Process);
   
     GotProcess := Process32First(Handle,Process);
   
     {$B-}
   
     if GotProcess and (Process.szExeFile<>ProcessName) then
   
     repeat
   
       GotProcess := Process32Next(Handle,Process);
   
     until (not GotProcess) or (Process.szExeFile=ProcessName);
   
     {$B+}
   
     if GotProcess then Result := Process.th32ProcessID
   
                   else Result := 0;
   
     CloseHandle(Handle);
   
   end;
   
   
   
             (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
   
   
   
   

4. در نهایت شما فقط لازمه که مثلا

   SendMyMessage(GetProcessID('MyServer'), 'ali');

   رو فراخوانی کنید.

پ.ن. : باید بدونین که این همه اون چیزی نیست که لازمه واسه اینکار بدونین، میشه از روشهای دیگه ای مثل socket یا pipe و ... هم استفاده کرد که با پورت خاصی اطلاعات بین پروسسهای شما رد و بدل میشه و هرکدوم مزایای خودشون رو دارن (این به نظر من ساده ترین راه بود) ...

[1485159]

من که والا مخم پوکید و هیچی نفهمیدم!!!!!!
خوب حالا یکم برم رو این روشی که گفتین تفکر کنم!!!!
میگم مگه نمیشه به جای این کارا آدرس فایل رو تو رجیستری بریزه و برنامه دوم اونو از رجیستری بخونه!؟..

[Saeed_m_Farid]

من که والا مخم پوکید و هیچی نفهمیدم!!!!!!
خوب حالا یکم برم رو این روشی که گفتین تفکر کنم!!!!
میگم مگه نمیشه به جای این کارا آدرس فایل رو تو رجیستری بریزه و برنامه دوم اونو از رجیستری بخونه!؟..

خوب شما از کجا میفهمید که آدرس نوشته شده تو رجیستری تغییر کرده؟ در اینصورت مثلا باید برنامتون یه تایمر داشته باشه که هی رجیستری رو بخونه و اگه عوض شده بود اونو لود کنه و ...

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

[Saeed_m_Farid]

خوب حالا یکم برم رو این روشی که گفتین تفکر کنم!!!!

اگه احساس می کنید که به اندازه کافی تفکر کردین، یه مژده بهتون میدم : لازم نیست سمت کلاینت رو شما بنویسین! چون کلاینت شما خود ویندوز هست. پس کار شما خیلی راحت میشه چون نه لازمه که سرور (برنامه خودتون) رو پیدا کنید و نه ایجاد instance از پیغامتون ...
مراحل رو ایندفعه میتونید اینجوری طی کنید :

1. دو تا فرم باید درست کنید :FormStyle اولی رو از نوع fsMDIForm بذارین، که فرم دربرگیرنده فایلهای لود شده شماست، و دومی رو از نوع fsMDIChild که بازاء هر دابل کلیک یه دونه ازش درست میشه (حداقل یه Memo واسه نمایش محتویات فایل، رو فرم دوم بندازید) ، فرم دوم رو باید فقط هنگام دابل کلیک Create کنید پس از لیست AutoCreate باید در بیاریدش.
2. تنها کدی که تو فرم fsMDIChild قراره بنویسید : Action := caFree هست که وقتی فرم رو می بندید، بسته بشه و نره پایین.
3. باید یه کدی بنویسید که با هر بار دابل کلیک، نسخه جدیدی از برنامتون باز نشه؛ برای اینکار، باید بتونید برنامه اول که اجرا شده رو پیدا کنید، برای اینکار یه میوتکس (Mutex) از Application خودتون ایجاد میکنید، که دفعه بعد که دیدین این میوتکس وجود داره فقط پارامترهای رسیده به نسخه جدید رو پاس بدین به قبلیه (برای اینکار ویندوز خودش یه نوع پیغام داره بنام WM_COPYDATA که اطلاعات رو بین پروسسها از این طریق میشه انتقال داد) و نسخه جدید رو Terminate کنید، یعنی اینطوری :

   program MDI_Editor_Test;
   
   
   
   uses
   
     Forms,
   
     Windows,
   
     messages,
   
     SysUtils,
   
     Main_u in 'Main_u.pas' {frmMain},
   
     Child_u in 'Child_u.pas' {frmChild};
   
   
   
   var
   
     Mutex,
   
     wndHnd : THandle;
   
   
   
   {$R *.res}
   
   var
   
     cds: TCopyDataStruct;
   
     pzData : PChar;
   
     s: string;
   
   begin
   
     Mutex := CreateMutex(nil, True, 'MDIEditorTest');
   
     if (Mutex <> 0) and (GetLastError = 0) then begin
   
       Application.Initialize;
   
       Application.CreateForm(TfrmMain, frmMain);
   
       Application.Run;
   
       if Mutex <> 0 then
   
         CloseHandle(Mutex);
   
     end else begin
   
       s := ParamStr(1);
   
       with cds do begin
   
         dwData := 1;
   
         cbData := Length(s)+1;
   
         pzData := AllocMem(Length(s)+1);
   
         StrPCopy(pzData, s);
   
         lpData := pzData;
   
       end;
   
       wndHnd := FindWindow('TfrmMain', 'MDI Editor Container');
   
       SendMessage(wndHnd,
   
                   WM_COPYDATA,
   
                   WPARAM(Application.Handle),
   
                   LPARAM(@cds));
   
       Application.Terminate;
   
     end;
   
   end.
   
   

4. مرحله بعد، همون روال پردازش پیام رسیده است، که بافر رسیده (یعنی همونی که دفعات دوم به بعد به عنوان پارامتر به برنامتون رسیده) رو پردازش کنه؛ همونطوریکه تو بند قبل گفتم، همون نوع پیغام رو باید پردازش کنید :

   procedure TfrmMain.wndproc(var hMsg: TMessage);
   
   var
   
     pzData: PCopyDataStruct;
   
     p: PChar;
   
   begin
   
     case hMsg.Msg of
   
       WM_COPYDATA: begin
   
         pzData := PCopyDataStruct(hMsg.LParam);
   
         if(pzData^.cbData > 0)then
   
           with TfrmChild.Create(Application) do begin
   
             Caption := PChar(pzData.lpData);
   
             memEditor.Lines.LoadFromFile(PChar(pzData.lpData))  ;
   
           end;
   
       end;
   
       else inherited;
   
     end;
   
   end;
   
   

5. مرحله بعد، اولین مرحله بود که یادم رفت بگم! ما باید واسه اولین دفعه که دابل کلیک شده هم یه کاری بکنیم، مثلا تو FormShow باید ببینیم اگه پارامتر رسیده بود، لودش کنیم :

procedure TfrmMain.wndproc(var hMsg: TMessage);

var

  pzData: PCopyDataStruct;

  p: PChar;

begin

  case hMsg.Msg of

    WM_COPYDATA: begin

      pzData := PCopyDataStruct(hMsg.LParam);

      if(pzData^.cbData > 0)then

        with TfrmChild.Create(Application) do begin

          Caption := PChar(pzData.lpData);

          memEditor.Lines.LoadFromFile(PChar(pzData.lpData))  ;

        end;

    end;

    else inherited;

  end;

end;

امیدوارم که ایندفعه زیاد مساله رو نپیچونده باشم، و بدرد شما و سایر دوستان بخوره؛ واسه راحتی بیشتر یه پروژه ساده نوشتم و امیدوارم بتونین ازش ایده بگیرید، از اساتید محترم، هم اگه کد من مشکل داشت خیلی لطف میکنن، اگه راهنمایی بفرمایند ...
موفق باشید.

[1485159]

من گیچ شدم !!!یدفه از محیط مبتدی اومدم به میحط پیشرفته!!!!(از هیچی سر در نیاوردم!!!
اما نا امید نمیشم!!!
خوب برا این که خوب درک کنم سعی میکنم سطر به سطر به خودم تفهیم کنم!
سوال:
Mutex := CreateMutex(nil, True, 'MDIEditorTest');
این سطر اصلا چیکار میکنه!؟..
پارامتر هاش چیه!؟..

[Saeed_m_Farid]

من گیچ شدم !!!یدفه از محیط مبتدی اومدم به میحط پیشرفته!!!!(از هیچی سر در نیاوردم!!!
اما نا امید نمیشم!!!
خوب برا این که خوب درک کنم سعی میکنم سطر به سطر به خودم تفهیم کنم!
سوال:
Mutex := CreateMutex(nil, True, 'MDIEditorTest');
این سطر اصلا چیکار میکنه!؟..
پارامتر هاش چیه!؟..

این کار رو میکنه :

باید یه کدی بنویسید که با هر بار دابل کلیک، نسخه جدیدی از برنامتون باز نشه؛ برای اینکار، باید بتونید برنامه اول که اجرا شده رو پیدا کنید، برای اینکار یه میوتکس (Mutex) از Application خودتون ایجاد میکنید، که دفعه بعد که دیدین این میوتکس وجود داره فقط پارامترهای رسیده به نسخه جدید رو پاس بدین به قبلیه

[1485159]

 (Mutex) از Application 

حالا خود این چیه!؟..

[Saeed_m_Farid]

 (Mutex) از Application 

حالا خود این چیه!؟..

درباره Mutex , اگه ممکنه یه نمونه کد.

[Saeed_m_Farid]

اگه اینطوری ادامه بدین، مطمئن باشین مدیرای سایت بهتون اخطار میدن یا تاپیک رو قفل میکنن؛ نمیشه که شما سطر به سطر بپرسین و یه جستحوی ساده نکنید؛ یه یادگاری از امضاء یکی از دوستان :
انسانها سه دسته اند : آنهایی که باینری میفهمند، آنهایی که نمی فهمند و آنهاییکه جستحو کردن نمی دانند!
ولی مطمئن باشید امروز من بیکارم، تا خود صبح هم بپرسید حوابتون رو میدم

[1485159]

انگار الان نمیتون که یاد بگیرم!!!!
آخه خیلی مبتدی هستم!!!!!
بهتره یه مدت اطلاعاتم رو بالا ببرم بعد بیام....
ممنون.

[Saeed_m_Farid]

انگار الان نمیتون که یاد بگیرم!!!!
آخه خیلی مبتدی هستم!!!!!
بهتره یه مدت اطلاعاتم رو بالا ببرم بعد بیام....
ممنون.

قرار بود نا امید نشین، اونطوریکه شما گفتین مطمئن شدم به این زودیا از کوره در نمیرید؛ ببینین اطلاعات زیر کمکتون میکنه ؟

          (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)



//رو انتخاب کنید MDI_Editor_Test فایل پروژه نمونه شما - اگه برنامه رو دانلود کردین کنترل اف12 بزنید و 

program MDI_Editor_Test; // نام پروژه که شما ذخیره کرده اید



uses

  Forms,    

  Windows,    // برای ثابتها و توابع ویندوز باید اضافه شود

  messages,    // برای ثابتها و توابع مربوط به پیامها باید اضافه شود

  SysUtils,    // این یونیت شامل برخی از اساسی ترین ابزارهای سیستمی است

  Main_u in 'Main_u.pas' {frmMain}, // نام فرم اصلی برنامه که دربرگیرنده فرمهای فرزند می باشد

  Child_u in 'Child_u.pas' {frmChild}; // نمونه فرم فرزند که با هر بار دابل کلیک ایجاد می شود



var

  Mutex,  // متغیری برای نگهداری هندل میوتکس برنامه مورد نظر ما که فقط یکبار اجرا میشود

  wndHnd : THandle; // Main_u.pas برای بدست آوردن فرم نگهدارنده یعنی 



{$R *.res}

var

{

    متغیری که در صورت فراخوانی مجدد برنامه باید پارامترهای دریافتی

    به نسخه اولیه اجرا شده، از طریق آن تحویل شده و نسخه جدید اجرا نشود

}

  cds: TCopyDataStruct; 

  pzData : PChar; //  برای نگهداری آدرس پارامتر ارسالی از طریق دابل کلیک

  s: string;      //  قرار است بعداً مسیر فایل دابل کلیک شده در این متغیر ریخته شود

begin

    {  

        ایجاد یک میوتکس از برنامه ما- میوتکس بطور خلاصه مانند یک متغیر سراسری

        در ویندوز عمل مینماید که در نواحی بحرانی به پروسس مورد نظر ما

        قابلیت دستیابی به منابع سیستم را میدهد و اکثرا برای یکتایی اجرای پروسس کاربرد دارد

    }

  Mutex := CreateMutex(nil, True, 'MDIEditorTest'); // Mutual exclusion 

  if (Mutex <> 0) and (GetLastError = 0) then begin // اگر نسخه ای از برنامه قبلا موجود نبود

    Application.Initialize;

    Application.CreateForm(TfrmMain, frmMain); // تنها فرمی که بصورت خودکار تولید می شود

    Application.Run;

    if Mutex <> 0 then

      CloseHandle(Mutex); // برای اطمینان از عدم اجرای مجدد برنامه بصورت بازگشتی

  end else begin     // اگر نسخه ای از برنامه قبلا اجرا شده باشد

    s := ParamStr(1);    // اولین پارامتر ورودی 

    with cds do begin     // این دستور باعث می شود که یک شناسه متعددا ! نوشته نشود

      dwData := 1;    // کاربرد ندارد و باید مقدار 1 داده بشود

      cbData := Length(s)+1; // طول بافری که قرار است به نسخه اجرا شده فرستاده شود

      pzData := AllocMem(Length(s)+1); // تخصیص حافظه به بافر برای ارسال به نسخه اجرا شده برنامه

      StrPCopy(pzData, s);    // آدرس مسیر فایل دابل کلیک شده در متغیر درنظر گرفته شده ریخته می شود

      lpData := pzData;        // آدرس درون بافری که قرار است فرستاده شود انتساب می یابد

    end;

    wndHnd := FindWindow('TfrmMain', 'MDI Editor Container'); // برای پیدا کردن پنجره برنامه اجرا شده ما

    SendMessage(wndHnd,

                WM_COPYDATA,

                WPARAM(Application.Handle),

                LPARAM(@cds)); // فرستادن ساختار تکمیل شده بافر موردنظر ما به نسخه اجرا شده برنامه مان

    Application.Terminate; //  بستن نسخه بعدی برای عدم اجرای مجدد - الیته ما جلوی اجرای آنرا گرفته بودیم ولی این خط هم لازم است

  end;

end.



          (*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)

[1485159]

 

  Mutex := CreateMutex(nil, True, 'MDIEditorTest');

فعلا تو بقیه قسمات مشکل ندارم فقط نمیتونم کد بالا رو درک کنم!؟..
پارامتر های CreateMutex چیه!؟.
(GetLastError = 0) then begin این هم چیه!؟..
ممنون. و قدردانی از توضیحات کاملتون

[Saeed_m_Farid]

فعلا تو بقیه قسمات مشکل ندارم فقط نمیتونم کد بالا رو درک کنم!؟..
پارامتر های CreateMutex چیه!؟.
(GetLastError = 0) then begin این هم چیه!؟..

دوست عزیز، این سوالات دیگه به سوال اصلی شما مربوط نمیشه، هرکدوم رو سر جاش بپرسید تا هم سایر دوستان کمک کنن و هم مسیر تاپیک عوض نشه؛ این سوال رو تو همون لینکی که تو پست 35 گذاشتم بپرسید تا بدرد دوستان دیگه هم بخوره ...

[1485159]

تا اونجایی که من میدونم Application.Run;
برا باز شدن برنامه هست!!!
پس چرا تو وسط برنامه استفاده کردین!؟..