<!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 -->
#Compile Exe #Dim All #Include "WIN32API.INC" %ID_IE = 1000 '-------------------------------------------------------------------------------- ' DLL rqd: http://www.powerbasic.com/support/pb...d.php?p=169306 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 '--------------------------------------------------------------------------------
Tweet
Comment