Intégrer une application (fichier exe) dans un autre fichier exe (comme mozEmbed)

Question

Je voudrais intégrer mozilla firefox dans mon application SANS utiliser de contrôle ActiveX (wrapper TWebBrowser, mozilla ActiveX ...). J'ai essayé d'utiliser TWebBrowser (en fait le webBrowser intégré de bsalsa qui est de loin meilleur), mais toutes les versions de IE semblent incompatibles avec certaines fonctionnalités du framework javascript populaire et libs (JQuery, ExtJS ...). Ma question est: est-ce que je peux appeler Exe de Firefox à partir de mon application (est-ce possible avec DDE ou OLE) et surtout SHOW IT dans mon application en utilisant un TFrame ou quelque chose de similaire?

attendant vos suggestions Cordialement, M

Answer 1

Vous aurez besoin de nettoyer un peu le code et de déterminer comment vous allez "parler" à Firefox.
Mais voici comment vous pouvez intégrer une application dans un formulaire Delphi.

DFM Fichier

object frmMain: TfrmMain 
    Left = 195 
    Top = 154 
    Width = 527 
    Height = 363 
    Caption = 'Containership Test' 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    OldCreateOrder = False 
    DesignSize = (
    519 
    329) 
    PixelsPerInch = 96 
    TextHeight = 13 
    object pnlTop: TPanel 
    Left = 0 
    Top = 0 
    Width = 519 
    Height = 292 
    Align = alTop 
    Anchors = [akLeft, akTop, akRight, akBottom] 
    BevelInner = bvLowered 
    TabOrder = 0 
    end 
    object btnLoadApp: TButton 
    Left = 172 
    Top = 297 
    Width = 75 
    Height = 25 
    Anchors = [akLeft, akBottom] 
    Caption = 'Load' 
    TabOrder = 1 
    OnClick = btnLoadAppClick 
    end 
    object btnKill: TButton 
    Left = 260 
    Top = 297 
    Width = 75 
    Height = 25 
    Anchors = [akLeft, akBottom] 
    Caption = 'Kill' 
    TabOrder = 2 
    OnClick = btnKillClick 
    end 
end 

fichier main.pas

unit main; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ExtCtrls, ShellApi; 

type 
    TfrmMain = class(TForm) 
    pnlTop: TPanel; 
    btnLoadApp: TButton; 
    btnKill: TButton; 
    procedure btnLoadAppClick(Sender: TObject); 
    procedure btnKillClick(Sender: TObject); 
    private 
    { Private declarations } 
    AppWnd : DWORD; 
    public 
    { Public declarations } 
    end; 

var 
    frmMain: TfrmMain; 

implementation 

{$R *.dfm} 

procedure TfrmMain.btnLoadAppClick(Sender: TObject); 
var 
    ExecuteFile : string; 
    SEInfo: TShellExecuteInfo; 
begin 
    ExecuteFile:='c:\Windows\notepad.exe'; 

    FillChar(SEInfo, SizeOf(SEInfo), 0) ; 
    SEInfo.cbSize := SizeOf(TShellExecuteInfo) ; 
    with SEInfo do 
    begin 
    fMask := SEE_MASK_NOCLOSEPROCESS; 
    Wnd := pnlTop.Handle; 
    lpFile := PChar(ExecuteFile) ; 
    nShow := SW_HIDE; 
    end; 
    if ShellExecuteEx(@SEInfo) then 
    begin 
    AppWnd := FindWindow(nil, PChar('Untitled - Notepad')); 
    if AppWnd <> 0 then 
    begin 
     Windows.SetParent(AppWnd, SEInfo.Wnd); 
     ShowWindow(AppWnd, SW_SHOWMAXIMIZED); 
     ShowWindow(AppWnd, SW_SHOWMAXIMIZED); 
    end; 
    end 
    else 
    ShowMessage('Error starting notepad!') ; 
end; 

procedure TfrmMain.btnKillClick(Sender: TObject); 
begin 
    if (AppWnd <> 0) then 
    begin 
    PostMessage(AppWnd, WM_Close, 0, 0); 
    AppWnd := 0; 
    end; 
end; 

end. 

Answer 2

Vous pouvez intégrer des DLL dans votre application et « charge » puis en utilisant BTMemoryModule.pas (juste google et vous trouvez).

Si cette DLL est un objet COM, il pourrait fonctionner à « charger » l'usine de DLL COM et obtenir une instance de l'interface COM que vous voulez:

var 
    // Our own method of COM/OLE object loading! 
    Lib:  HMODULE; 
    Ptr:  TDllGetClassObject; 
    Unl:  TDLLCanUnloadNow; 
    I:   IClassFactory; 
initialization 
    Lib := LoadLibrary('zkemkeeper.dll'); 
    Ptr := GetProcAddress(Lib, 'DllGetClassObject'); 
    Unl := GetProcAddress(Lib, 'DllCanUnloadNow'); 
    if Assigned(Ptr) and (Ptr(CLASS_CZKEM, IClassFactory, I) <> S_OK) then I := nil; 
finalization 
    I := nil; 

OleInitialize(nil); 
// Create a IZKEM interface instance 
if not Assigned(I) then Exit; 
if I.CreateInstance(nil, IZKEM, CZ) <> S_OK then Exit; 
if not Assigned(CZ) then Exit; 

Je ne sais pas comment intégrer executables.

J'espère que cette information est utile.

Answer 3

La manière la plus simple d'incorporer un fichier EXE dans votre application consiste à l'ajouter en tant que ressource.

Faire un fichier .rc avec quelque chose comme le texte suivant:

OTHER_EXE_FILE RCDATA "nameofother.exe" 

puis en utilisant BRCC32.EXE vous pouvez compiler un fichier .RES du même nom que le .rc avec lequel vous pouvez ensuite inclure ($ I) le nouveau fichier .RES dans votre application. Le NAMEOFOTHER.EXE doit être dans le même dossier que le fichier .RC ou être correctement pathed, IIRC.

On suppose qu'il existe une autre façon de procéder. Vous n'utilisez pas le compilateur brcc32.exe en ligne de commande et vous n'avez qu'à inclure ($ I) le fichier .RC dans votre programme et le compilateur compile le fichier .RC à la volée.

Je ne peux pas vous dire si la seconde méthode fonctionne ou non car je ne l'ai jamais essayé.

Answer 4

Je pense que le gars d'origine veut réellement est un moteur de rendu navigateur Web intégré comme un contrôle dans son application. Si c'est le cas, Gecko (la partie de rendu Mozilla) est disponible en tant que plugin pour votre application. Je ne pense pas que vous voulez exécuter un EXE. Par exemple, Mozilla Firefox n'est pas simplement un fichier EXE, mais nécessite d'autres éléments, y compris un dossier de profils. Vous n'avez probablement pas pensé à tous les problèmes qui pourraient causer.

Si vous voulez juste un contrôle de navigateur Web, ce n'est pas la façon de le faire.Essayez ceci: http://ftp.newbielabs.com/Delphi%20Gecko%20SDK/ https://sourceforge.net/projects/d-gecko/