static olarak dll den mdi ana forma child çağırma

[delphist]

S.a. Arkadaşlar ben bu olayı bir türlü beceremedim...Dll kullanmadan normalde çağırabiliyorum ama dll den istiyorum fakat başarılı olamıyorum başarılı olsamda program hep exceptiona düşüyor...Hep hata veriyor....Lütfen yardımcı olursanız sevinirim. Teşekkürler...

[delphist]

Arkadaşlar şu anda codeları gönderemiyorum notebook da yarın inşallah atıcam işyerinde kaldı notebook...Formları çağırabiliyorum fakat problem şu....Mdi ana form kapandığı zaman exception a düşüyor...Mdi ana formun kapanışında mdi ana formad dahil olmak üzere hafızadaki md ichild ları nasıl atabileceğim bunun tekniğ nedir....

[delphist]

Bu arada sorunum hallettim...Fakat sharemem library sini eklediğim zaman vkamadan dll ile ilgili sorusundaki hatanın aynısıyla karşılaşıyorum...

Umarım bu olayda takılan arkadaşlara yardımcı olur...Code lar aşağıda..

Kod: Tümünü seç

var
DllApp : TApplication;


procedure ShowMDIChild(MainApp : TApplication; Formname:string); export;
begin
 if not Assigned(DllApp) then begin
  DllApp := Application;
  Application := MainApp;
  end;
  if Formname='Frm_grupkodukayit' then
   begin
   if not assigned(Frm_grupkodukayit) then
    begin
   Frm_grupkodukayit := TFrm_grupkodukayit.Create(Application.MainForm);
   Frm_grupkodukayit.Show;
   end
   else
   begin
   Frm_grupkodukayit.Show;
   end;
   end
   else
   begin
   ShowMessage(Formname+'Bu Form Kütüphanede Bulunamıyor');
   end;
 end;
procedure MyDLLProc(Reason: Integer);
begin
 if Reason = DLL_PROCESS_DETACH then
  { DLL is unloading. Restore the Application pointer. }
  if Assigned(DllApp) then
   Application := DllApp;
end;

exports
ShowMDIChild;

[delphist]

Bu arada biraz hızlı oldu ama diğer sorunuda hallettim...Vkamadanın la karşılaştığım aynı sorun...Şu an problemim yok oraya nasıl hallettiğimi yazdım....Teşekkürler... Bi bakmışım başlığa hep ben yazmışım hehe