SetGadgetText im Editorgadget klappt iwie nicht. warum?

[JayCool]

Hi,

also ich möchte einfach den HTML-Code aus einem WebGadget in ein Editor-Gadget ausgeben und habe dazu schon ein Beispiel gebaut - Guxdu hier:

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 1024, 550, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    WebGadget(0, 10, 10, 580, 280, "http://www.google.de/advanced_search?hl=de&num=100")
    ; Hinweis: wenn Sie eine lokale Datei benutzen möchten, dann ändern Sie den letzten Parameter
    ;          in "file://" + Pfad + Dateiname
    EditorGadget(1,10,300,900,200)
    
    Repeat
      event = WindowEvent()

      If event = #PB_EventType_DownloadEnd
      
        a$ = GetGadgetItemText(0,#PB_Web_HtmlCode)
        
        SetGadgetText(1,a$)

      EndIf    

    Until event = #PB_Event_CloseWindow
  EndIf

Jetzt habe ich aber das Problem, dass zwar das WebGadget angezeigt und mit Inhalt gefüllt wird, aber ins Editor-Gadget wird nichts übernommen. Mich würde interessieren, warum das einfach nicht hinhauen will. Was mache ich nur falsch???? Ich krieg noch die Krise.

[- chris -]

Du mußt den EventType abfragen:

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 1024, 550, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    WebGadget(0, 10, 10, 580, 280, "http://www.google.de/advanced_search?hl=de&num=100")
    ; Hinweis: wenn Sie eine lokale Datei benutzen möchten, dann ändern Sie den letzten Parameter
    ;          in "file://" + Pfad + Dateiname
    EditorGadget(1,10,300,900,200)
   
    Repeat
      event = WaitWindowEvent(20)
      eventType = EventType() 


      If eventType = #PB_EventType_DownloadEnd
          
        a$ = GetGadgetItemText(0,#PB_Web_HtmlCode)
       
        SetGadgetText(1,a$)

      EndIf   

    Until event = #PB_Event_CloseWindow
  EndIf 
  

[JayCool]

Hi CHris
many thanks and
you made my day

[hjbremer]

schönes Beispiel, aber warum event = WaitWindowEvent(20) ??? ich meine die 20

[Kaeru Gaman]

weil's ausreicht....?

im Fragecode hatte er nur WindowEvent()
ein 20er timeout ist ne runde sache,
- kurz genug dass man häufig genug updated,
- lang ganug, dass ne komplette timeslice plus abweichung reinpasst,
- ein ganzer zehner, das können sich viele einfacher merken als 19 oder 21....

[hjbremer]

uups dat versteh ich nicht, wird dann nicht der Rest meiner Anwendung langsamer ?

[Kaeru Gaman]

das kommt drauf an wie du programmierst.

Vorgänge, die bei TimeOut getätigt werden, werden dann natürlich "nur" 50x pro Sekunde ausgeführt.
Allerdings sollte man sowieso gut überlegen, welche Vorgänge man ins Timeout packt und welche in die Ereignisbearbeitung.
Vorgänge die fortlaufend und schnell abgearbeitet werden müssen, gehören sowieso in einen thread.

[Andesdaf]

das ist wieder ein typischer Fall von: Die Hilfe hilft.

(na gut, die Hilfe drückt sich da nicht direkt mit EventType aus)

[ts-soft]

schönes Beispiel, aber warum event = WaitWindowEvent(20) ??? ich meine die 20

Das bewirkt in diesem Fall garnichts
Es wird zusätzlich alle 20 ms nichts gemacht

[Fluid Byte]