استدعاء Java Applet في Delphi Form

السلام عليكم

إستخدم TWebBrowser

uses
  MSHTML;
  
procedure TForm1.CallFoo(S: string; I: Integer);
  { Calls JavaScript Foo() function }
var
  Doc: IHTMLDocument2;      // current HTML document
  HTMLWindow: IHTMLWindow2; // parent window of current HTML document
  JSFn: string;             // stores JavaScipt function call
begin
  // Get reference to current document
  Doc := WebBrowser1.Document as IHTMLDocument2;
  if not Assigned(Doc) then
    Exit;
  // Get parent window of current document
  HTMLWindow := Doc.parentWindow;
  if not Assigned(HTMLWindow) then
    Exit;
  // Run JavaScript
  try
    JSFn := Format('Foo(''%s'',%d)', [S, I]);  // build function call
    HTMLWindow.execScript(JSFn, 'JavaScript'); // execute function
  except
    // handle exception in case JavaScript fails to run
  end;
end;

ذلك بالنسبة JavaScript

أما بالنسبة Java Applet يمكن إستخدام

Java Native Interface

الملف مرفق من Project JEDI

JNI_xp.zip

شكرا يا اخي على معلوماتك القيمة و المفيده، لكن في الواقع انا اريد استدعاء ملف javeapplet.class مباشرة وعرضه في delphi form

اكرر جزيل شكري لك

8-)