Seite 1 von 2
WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 13:02
von Velindos
Hallo Leute,
möchte gern meinen Inhalt vom Webgadgt in ein zweites duplizieren, gelingt(GetGadgetText,GetGadgetItemText) aber nicht!
Code: Alles auswählen
Global HtmlLesezeichenGesamt
Global HTML.s
HTML + "<!DOCTYPE html><html lang='de' ><head><title>Änderungen - Assembling</title><style type='text/css'>#Codecschattig { 3px 2px; font-size:0,8em; color:#FFFF99; }#Codecschattig2 { text-shadow:black 3px 2px font-size:'0,6em' color:yellow }</style><meta name='viewport' content='width=630' user-scalable = 'yes' initial-scale = '0.4' maximum-scale = '1' />"
HTML + "</head><body bgcolor='#000000' text='#FFCC99' link='#FFFFFF' vlink='#FFFFFF' alink='#FFFFFF'> <div style='position:relative ; width:630px'><basefont size='3' color='#FFCC99' face='Verdana'><div style='page-Break-after: always'> <!-- Kommentar: Ringbutton Black anzeigen etc. -->"
HTML + "<a href=><div></div></div></body></html>"
; =============
If OpenWindow(0, 0, 0, 600, 350, "WebGadget Inhalt Duplizieren", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 300, 280, "")
SetGadgetItemText(0,#PB_Web_HtmlCode,HTML,0)
WebGadget(1, 300, 10, 300, 280, "http://www.purebasic.com")
ButtonGadget(2,0,350-20,600,20,"Duplizieren")
Define WindowNr ,EventID ,Key.l
Repeat
WindowNr = EventWindow()
EventID = WaitWindowEvent()
Select EventID
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Debug "BTN"
SetGadgetItemText(1,-1,GetGadgetItemText(0,-1,0),0)
EndSelect
EndSelect
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Jemand einen Tip?
Gruss Velindos!
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 13:11
von Kiffi
Code: Alles auswählen
SetGadgetItemText(1,#PB_Web_HtmlCode,GetGadgetItemText(0,#PB_Web_HtmlCode,0),0)
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 13:13
von RSBasic
1. Du verwendest 2x WaitWindowEvent(). Das darfst du nicht machen, weil sonst manchmal Events verloren gehen.
2. Laut Hilfe musst du im Eintrag-Parameter die Konstante #PB_Web_HtmlCode benutzen und nicht -1.
so funktioniert es richtig:
Code: Alles auswählen
Global HtmlLesezeichenGesamt
Global HTML.s
HTML + "<!DOCTYPE html><html lang='de' ><head><title>Änderungen - Assembling</title><style type='text/css'>#Codecschattig { 3px 2px; font-size:0,8em; color:#FFFF99; }#Codecschattig2 { text-shadow:black 3px 2px font-size:'0,6em' color:yellow }</style><meta name='viewport' content='width=630' user-scalable = 'yes' initial-scale = '0.4' maximum-scale = '1' />"
HTML + "</head><body bgcolor='#000000' text='#FFCC99' link='#FFFFFF' vlink='#FFFFFF' alink='#FFFFFF'> <div style='position:relative ; width:630px'><basefont size='3' color='#FFCC99' face='Verdana'><div style='page-Break-after: always'> <!-- Kommentar: Ringbutton Black anzeigen etc. -->"
HTML + "<a href=><div></div></div></body></html>"
; =============
If OpenWindow(0, 0, 0, 600, 350, "WebGadget Inhalt Duplizieren", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 300, 280, "")
SetGadgetItemText(0,#PB_Web_HtmlCode,HTML,0)
WebGadget(1, 300, 10, 300, 280, "http://www.purebasic.com")
ButtonGadget(2,0,350-20,600,20,"Duplizieren")
Define WindowNr ,EventID ,Key.l
Repeat
WindowNr = EventWindow()
EventID = WaitWindowEvent()
Select EventID
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Debug "BTN"
SetGadgetItemText(1,#PB_Web_HtmlCode,GetGadgetItemText(0,#PB_Web_HtmlCode,0),0)
EndSelect
EndSelect
Until EventID = #PB_Event_CloseWindow
EndIf
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 13:34
von Velindos
Hallo Kiffi,
Danke, war natürlich wieder mal schlampig!
Hab die Sache eingebaut und funzt! Wenn ich das Gadget dupliziere hätte ich noch gern dies mit meiner Progressbar angezeigt! Nun dies funzt nicht, weil ich keine exakte Ladegrösse habe. Also machte ich folgendes:
Code: Alles auswählen
; ================================
; Timer_Progressbar ON
AddWindowTimer(Present_Hwnd, #Timer_Progressbar, ProgressBar_Time)
; ================================
SetGadgetItemText(Work_W_Kiosk_Webgadget,#PB_Web_HtmlCode,GetGadgetItemText(iPage_Kiosk_Web,#PB_Web_HtmlCode,0),0)
; ================================
; Timer_Progressbar OFF
RemoveWindowTimer(Ultimate, #Timer_Progressbar)
; ================================
was aber nicht funzt. Noch eine Idee wie dies Lösen könnte?
Gruss ... Velindos!
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 15:02
von Kiffi
Velindos hat geschrieben:Wenn ich das Gadget dupliziere hätte ich noch gern dies mit meiner Progressbar angezeigt!
wieso? Das geht doch rubbeldiekatz.
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 15:21
von Velindos
Hallo Kiffi,
nur bei kleineren Page´s. Im meinen Fall habe ich Page´s mit bis zu 20MB, und die Dinger brauchen ihre Zeit!
Gruss ... Velindos!
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 15:27
von RSBasic
20 MB für eine Seite? Was ist das für eine Seite? Klingt nach schlechter Umsetzung, besonders für mobilen Geräten.
Schau dir die Hilfe bezüglich #PB_EventType_DownloadStart, #PB_EventType_DownloadProgress und #PB_EventType_DownloadEnd an.
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 15:36
von Velindos
Hallo RSBasic,
danke für den Tip, hast du zufällig ein Beispiel?
Gruss ... Velindos!
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 15:36
von RSBasic
Ich heiße aber nicht Kiffi.
Re: WebGadget Inhalt Duplizieren
Verfasst: 21.02.2019 15:56
von Velindos
Hallo RSBasic,
habs gerade geschnallt, sorry!
Das kommt davon wenn man 3 Sachen gleichzeitig macht und auf der Leitung steht!
Gruss ... Velindos!