<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE> Java Test </TITLE> </HEAD> <BODY> <APPLET CODE="PocketCalc.class" WIDTH="395" HEIGHT="179"> Your browser doesn't support Java applets. </APPLET> </BODY> </HTML> <!-- Java applets can run in a Web browser using a Java Virtual Machine (JVM) http://en.wikipedia.org/wiki/Java_Virtual_Machine This example applet available here: http://javaboutique.internet.com/PocketCalc/ Display in PB using embedded browser - http://www.powerbasic.com/support/pbforums/showthread.php?t=24031 You'll need cwebpage.dll - http://www.powerbasic.com/support/pbforums/showthread.php?p=169306 Other examples of embedded browser on the forum from Jose and Semen that don't require third party DLLs -->
Tweet
#Compile Exe
#Dim All
#Include "WIN32API.INC"
%ID_IE = 1000
'--------------------------------------------------------------------------------
' DLL rqd: [URL]http://www.powerbasic.com/support/pbforums/showthread.php?p=169306[/URL]
Declare Function EmbedBrowserObject Lib "cwebpage.dll" Alias "EmbedBrowserObject" (ByVal HWND As Dword) As Long
Declare Sub UnEmbedBrowserObject Lib "cwebpage.dll" Alias "UnEmbedBrowserObject" (ByVal HWND As Dword)
Declare Function DisplayHTMLPage Lib "cwebpage.dll" Alias "DisplayHTMLPage" (ByVal HWND As Dword, LPCTSTR As Asciiz) As Long
Declare Sub ResizeBrowser Lib "cwebpage.dll" Alias "ResizeBrowser" (ByVal HWND As Dword, ByVal cx As Dword, ByVal cy As Dword)
'--------------------------------------------------------------------------------
Declare CallBack Function ShowDIALOG1Proc()
Declare Function ShowDIALOG1(ByVal hParent As Dword) As Long
'--------------------------------------------------------------------------------
Function PBMain()As Long
ShowDIALOG1 %HWND_Desktop
End Function
'--------------------------------------------------------------------------------
CallBack Function ShowDIALOG1Proc()
Local x As Long, y As Long, RC As RECT
Select Case As Long CbMsg
Case %WM_InitDialog
EmbedBrowserObject GetDlgItem(CbHndl, %ID_IE)
Dialog Post CbHndl, %WM_User + 999&, 0, 0
Case %WM_User + 999&
MousePtr 0
DisplayHTMLPage GetDlgItem(CbHndl, %ID_IE), EXE.Path$ + "Java Test.html"
Case %WM_Size
Dialog Get Client CbHndl To x,y
Control Set Size CbHndl, %ID_IE, x - 65, y - 10
Control Set Loc CbHndl, %IdOk, x - 55, 5
Control Set Loc CbHndl, %IdCancel, x - 55, 24
Dialog Units CbHndl, x - 65, y - 10 To Pixels x, y
Dialog Units CbHndl, x, y To Pixels x, y
ResizeBrowser GetDlgItem(CbHndl, %ID_IE), x-1, y-1
Case %WM_Destroy
MousePtr 1
UnEmbedBrowserObject GetDlgItem(CbHndl, %ID_IE)
Case %WM_Command
If CbCtlMsg = %BN_Clicked Then
Dialog End CbHndl, 0
End If
End Select
End Function
'--------------------------------------------------------------------------------
Function ShowDIALOG1(ByVal hParent As Dword) As Long
Local hDlg As Dword
Dialog New hParent, "Embedded Browser for Java Applet", 70, 70, 350, 230, %WS_Popup Or _
%WS_Caption Or %WS_SysMenu Or %WS_ClipSiblings Or %DS_Center Or %WS_THICKFRAME To hDlg
Control Add Label, hDlg, %ID_IE, "", 5, 5, 350-65, 230 - 10, %SS_Sunken
Control Add Button, hDlg, %IdOk, "OK", 350 - 55, 5, 50, 14
Control Add Button, hDlg, %IdCancel, "Cancel", 350 - 55, 24, 50, 14
Dialog Show Modal hDlg, Call ShowDIALOG1Proc
End Function
'--------------------------------------------------------------------------------
Comment