Aktuelle Zeit: 19.10.2018 15:09

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 9 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Druckvorschau für Bild
BeitragVerfasst: 10.11.2017 11:32 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
Hallo,

mit WebObject\ExecWB kann mann ein Druckvorschau ein HTML-Seite erzeugen:
http://www.purebasic.fr/german/viewtopic.php?f=16&t=30225

Gibt es ein äquivalente Lösung für ein Bild (aus der Zwischenablage)

Danke und Gruß
MarcelX


Linkfix Foren-URL --Andesdaf

_________________
Win-7, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 10.11.2017 11:36 
Offline
Moderator
Benutzeravatar

Registriert: 15.06.2008 18:22
Wohnort: Erdgeschoß
Du könntest eine temporäre Bilddatei mittels GetClipboardImage() erstellen
und diese dann in die HTML-Seite einbinden.

_________________
Win10 x64 | PB 5.62 (x86 und x64)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 10.11.2017 12:58 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
Danke Andesdaf,

das ist ein Lösungsweg.
Ich dachte, vielleicht gibt es auch so was analog zur WebObject ein ImageObject

EDIT:
Zitat:
Du könntest eine temporäre Bilddatei mittels GetClipboardImage() erstellen
und diese dann in die HTML-Seite einbinden.

So habe ich es realisiert - war das einfacher (Danke für den Tipps Andesdaf)

_________________
Win-7, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 19.11.2017 05:55 
Offline
Benutzeravatar

Registriert: 20.06.2013 23:27
marcelx hat geschrieben:
So habe ich es realisiert - war das einfacher (Danke für den Tipps Andesdaf)


hättest Du wohl mal ein kleines Beispiel?
Ich bin auch immer noch am basteln der selben Funktion -> drucke mir ein Bild-keinen Text

VG

_________________
PureBasic v5.30 + v5.44 LTS + v5.62 | Windows 7 x64 - Gforce GTX 950 - AMD FX6200 Six Core 3.80 | 26GB RAM


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 19.11.2017 11:02 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
Hallo udg,

Zitat:
hättest Du wohl mal ein kleines Beispiel?

Code:
Enumeration
  #myWindow
EndEnumeration
Enumeration
  #myWebGadget
  #Print
  #Preview
EndEnumeration

Enumeration 1
  #OLECMDID_OPEN         
  #OLECMDID_NEW       
  #OLECMDID_SAVE         
  #OLECMDID_SAVEAS           
  #OLECMDID_SAVECOPYAS   
  #OLECMDID_PRINT       
  #OLECMDID_PRINTPREVIEW       
  #OLECMDID_PAGESETUP       
  #OLECMDID_SPELL           
  #OLECMDID_PROPERTIES
  #OLECMDID_CUT         
  #OLECMDID_COPY       
  #OLECMDID_PASTE           
  #OLECMDID_PASTESPECIAL   
  #OLECMDID_UNDO           
  #OLECMDID_REDO         
  #OLECMDID_SELECTALL       
  #OLECMDID_CLEARSELECTION
  #OLECMDID_ZOOM           
  #OLECMDID_GETZOOMRANGE     
  #OLECMDID_UPDATECOMMANDS
  #OLECMDID_REFRESH           
  #OLECMDID_STOP             
  #OLECMDID_HIDETOOLBARS     
  #OLECMDID_SETPROGRESSMAX   
  #OLECMDID_SETPROGRESSPOS
  #OLECMDID_SETPROGRESSTEXT   
  #OLECMDID_SETTITLE         
  #OLECMDID_SETDOWNLOADSTATE
  #OLECMDID_STOPDOWNLOAD     
EndEnumeration

Enumeration 0
  #OLECMDEXECOPT_DODEFAULT     
  #OLECMDEXECOPT_PROMPTUSER       
  #OLECMDEXECOPT_DONTPROMPTUSER   
  #OLECMDEXECOPT_SHOWHELP       
EndEnumeration

Procedure.s CaptureActiveWindow()
  Protected Handle
  Protected hDC
  Protected RECT.RECT
  Protected hPrinterDC
 
  Handle = GetForegroundWindow_()
  hDC = GetWindowDC_(Handle)
  GetWindowRect_(Handle,@RECT.RECT)
  imgID=0
  With RECT
    \right-\left
    \bottom-\top
    CreateImage(imgID,\right,\bottom-50)
    hPrinterDC = StartDrawing(ImageOutput(imgID))
    If hPrinterDC
      BitBlt_(hPrinterDC,0,0,\right,\bottom,hDC,0,0,#SRCCOPY)
      StopDrawing()
    EndIf
  EndWith
 
  ReleaseDC_(Handle,hDC)
 
  UseJPEGImageEncoder()
  fn$="xyz.jpg"
  Dateiname$ = GetTemporaryDirectory()+fn$
  SaveImage(imgID, Dateiname$,  #PB_ImagePlugin_JPEG)

  ProcedureReturn Dateiname$
EndProcedure

Procedure.s Print_Preview()
  WebGadget(#myWebGadget, 0, 0, 0, 0, "")
  HideGadget(#myWebGadget, 1)
  img$ = CaptureActiveWindow()

  HTML.s = "<html><head><title>Test</title></head><body></body><img src="+#DQUOTE$+img$+#DQUOTE$+"></html>"
  SetGadgetItemText(#myWebGadget, #PB_Web_HtmlCode, HTML)

  WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(#myWebGadget), #GWL_USERDATA)
 
  Repeat
    While WindowEvent(): Wend
    Delay(1)
    WebObject\get_Busy(@IsBusy.l)
  Until IsBusy = 0
  WebObject\ExecWB(#OLECMDID_COPY,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
  WebObject\ExecWB(#OLECMDID_PRINTPREVIEW, #OLECMDEXECOPT_PROMPTUSER, 0, 0)

  FreeGadget(#myWebGadget)
EndProcedure

OpenWindow(#myWindow, #PB_Any, #PB_Any, 800, 615, "", #PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
 
ButtonGadget(#Preview, 140, 10, 100, 20, "Print_Preview")

Repeat
  EventID = WaitWindowEvent()
  Select EventID
    Case  #PB_Event_Gadget
      Select EventGadget()
        Case #Preview
          Print_Preview()
      EndSelect
  EndSelect       
Until EventID = #PB_Event_CloseWindow

Gruß
MarcelX

_________________
Win-7, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 19.11.2017 11:51 
Offline
Benutzeravatar

Registriert: 11.08.2005 19:08
marcelx hat geschrieben:
Code:
HTML.s = "<html><head><title>Test</title></head><body></body><img src="+#DQUOTE$+img$+#DQUOTE$+"></html>"
ersetzen durch
Code:
HTML.s = "<html><head><title>Test</title></head><body><img src="+#DQUOTE$+img$+#DQUOTE$+"></body></html>"

_________________
Bild
Warum OpenSource eine Lizenz haben sollte
PureBasic-CodeArchiv-Rebirth: Git-Repository / Download -- Jede Hilfe ist willkommen!
Manjaro Xfce x64 (Hauptsystem) :: WindowsXP/Xubuntu x86 (VirtualBox) :: PureBasic (Linux: x86/x64, Windows: x86) :: jeweils neueste Version


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 19.11.2017 12:20 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
Danke Sicro,
erstaunlich, es funktionniert mit den falsche HTML
(nobody is perfect)

_________________
Win-7, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 19.11.2017 13:03 
Offline
Benutzeravatar

Registriert: 11.08.2005 19:08
Die HTML-Parser der Internet-Browser sind recht tolerant, was Syntaxfehler betrifft, sonst würden einige Internetseiten nicht richtig funktionieren. :mrgreen:

_________________
Bild
Warum OpenSource eine Lizenz haben sollte
PureBasic-CodeArchiv-Rebirth: Git-Repository / Download -- Jede Hilfe ist willkommen!
Manjaro Xfce x64 (Hauptsystem) :: WindowsXP/Xubuntu x86 (VirtualBox) :: PureBasic (Linux: x86/x64, Windows: x86) :: jeweils neueste Version


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Druckvorschau für Bild
BeitragVerfasst: 19.11.2017 16:06 
Offline
Benutzeravatar

Registriert: 20.06.2013 23:27
marcelx hat geschrieben:
Gruß
MarcelX

vielen Dank :allright:

aber außer nichts, sehe ich nichts auf meiner Vorschau.

Pfad zum Bild angepasst. Erst mal jpg beibehalten. ---> nix

was ist der Knackpunkt?
PureBasic v5.61

EDIT:

geht nun. nochmals Danke ;)

VG

_________________
PureBasic v5.30 + v5.44 LTS + v5.62 | Windows 7 x64 - Gforce GTX 950 - AMD FX6200 Six Core 3.80 | 26GB RAM


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 9 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 12 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye