XProfan

- Página 2 -

Jörg
Sellmeyer

Leider lässt du uns en el Unklaren, con welchem Code Si es usted el Bild geladen hast.
En me zumindest es con el Code de Matthias - also con rein profanen Mitteln - no ladbar. Das heißt, lo no es adecuado y lo se auch kein Handle producido, pero hPic& es 0.

Mit mi Code (con Ole) dagegen hay una gültiges Handle y el Bild se adecuado. Lo se natürlich sólo una kleiner Ausschnitt adecuado, porque el Code auch nichts más vorsieht.

Sollte lo al a geringen Speicher mentira, es sí trotzdem offensichtlich, dass el Ole-Método el bessere es, como el sí entonces en mi Sistema (con a wenig Speicher) funktioniert, während Crear("HPIC",...) como versagt.

XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10.06.2020 ▲

Matthias
Arlt

64k-Grenze wäre tal vez una Erklärungsversuch. Zu wenig Speicher más no, Yo aktuell 2.5GB RAM.

Jörg Sellmeyer (10.06.2020)

Sollte lo al a geringen Speicher mentira, es sí trotzdem offensichtlich, dass el Ole-Método el bessere es, como el sí entonces en mi Sistema (con a wenig Speicher) funktioniert, während Crear("HPIC",...) como versagt.

Das sehe Yo auch así. Trotzdem wäre interessant, si al Speicherausbau des Rechners hängt, Yo como dijo más no annehme, oder a el Speicherbitmap de Profano. Letzeres kann wohl sólo Roland sicher beantworten. Bisher ha sí dieses Problema no a Diskussion gestanden. Wohl porque lo keinem aufgefallen es...wann ha uno ya veces solch Riesenbild.

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

10.06.2020 ▲

Jörg
Sellmeyer

In uno Auflösung de 300 dpi kneift Profano como ya viel früher. Wenn uno algo Grafikbearbeitung macht, es uno rápidamente en solchen Größen. Bisher Yo para el Anzeige solcher Bilder siempre una Crear("HTMLWin", H, S, N, X, Y, DX, DY).
Como muss una continuación pero en el Ermittlung el Maße siempre otra vez en otro, nichtprofane Mittel zurückgreifen, qué Tiempo kostet y lästig es.
Außerdem voluntad Yo eigentlich sólo ungern una Element vom Internetexplorer en mein Programa integrieren.
Ein weiterer Vorteil de el HTMLWin es de paso todavía el problemlose Nutzung como scrollbares Element. Es en Profano bisher auch sólo suboptimal gelöst.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg Sellmeyer (11.06.2020)

Matthias
Arlt

Außerdem voluntad Yo eigentlich sólo ungern una Element vom Internetexplorer en mein Programa integrieren.

Kann Yo bien nachvollziehen...

Hier veces ni algo schlankere Variante...

Kompilieren Marca Separación

declarar hBtn&,Pic$,GDIP_DLL&,GDPS#,GdipStatus&,PicObject&,hPic&,PicWidth&,PicHeight&,hdc&,bmp&,wChar$
GDIP_DLL& = UseDLL("GDIPLUS.DLL")
window 0,0-%maxx,%maxy
hBtn&=create("BUTTON",%hwnd,"Bild...",20,20,60,22)

proc LoadImageFile

    parámetros Pic$
    dim GDPS#,16
    long GDPS#,0 = 1
    long GDPS#,4 = 0
    long GDPS#,8 = 0
    long GDPS#,12 = 0
    external("GDIPLUS.DLL","GdiplusStartup",addr(GdipStatus&),GDPS#,0)
    disponer GDPS#
    wChar$ = space$((len(Pic$)*2)+1)
    external("KERNEL32","MultiByteToWideChar",0,0,addr(Pic$),-1,addr(wChar$),len(wChar$)+1)
    external("GDIPLUS.DLL","GdipLoadImageFromFile",addr(wChar$),addr(PicObject&))
    external("GDIPLUS.DLL","GdipCreateHBITMAPFromBitmap",PicObject&,addr(hPic&),0)
    external("GDIPLUS.DLL","GdipGetImageWidth",PicObject&,addr(PicWidth&))
    external("GDIPLUS.DLL","GdipGetImageHeight",PicObject&,addr(PicHeight&))
    hdc& = external("GDI32","CreateCompatibleDC",0)
    bmp& = external("GDI32","CreateCompatibleBitmap",%hdc,PicWidth&,PicHeight&)
    external("GDI32","SelectObject",hdc&,hPic&)
    external("GDI32","BitBlt",%hdc,0,0,width(%hwnd),height(%hwnd),hdc&,0,0,$CC0020)
    external("GDI32","BitBlt",%hdc2,0,0,width(%hwnd),height(%hwnd),hdc&,0,0,$CC0020)
    external("GDI32","DeleteObject",bmp&)
    external("GDI32","DeleteDC",hdc&)
    external("GDIPLUS.DLL","GdipDisposeImage",PicObject&)
    external("GDIPLUS.DLL","GdiplusShutdown",GdipStatus&)

ENDPROC

mientras que 1

    waitinput

    if clicked(hBtn&)

        Pic$=LoadFile$("Bild invitar...","*.*")

        if FileExists(pic$)

            UseCursor 2
            LoadImageFile(Pic$)
            UseCursor 0

        endif

    endif

wend

FreeDLL GDIP_DLL&
end

Lo scheint also definitiv a el Speicherbitmap de Profano a mentira, porque con Workarround por API funtioniert lo sí.

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

RGH

Yo habe gerade veces nachgeschaut: El XProfan-Befehle y -Características, el Bilder de Archivos invitar (MLoadBmp, DrawPic, DrawSizedPic y Crear("HPIC",...)), nutzen una OLE-Rutina, el a Andreas' Code angelehnt es. Hier debería lo no Problemas con großen Bitmaps geben. Yo muss el veces näher überprüfen.

(Das gilt no para FreeProfan, como Yo FreePascal todavía no con OLE-Objekten verheiraten podría.)

Saludo
Roland

XProfan X4
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

Ach sí: a negativen Handles: In Windows son el Handles unsigned Integer (sin Vorzeichen). Der Wertebereich va also de 0 a algo encima 4 Milliarden. El Handles y Integer en XProfan son signed Integer (con Vorzeichen) con un Wertebereich de - 2 Milliarden a + 2 Milliarden. Windows-Handles, el encima 2147483647 mentira, voluntad por lo tanto negativo dargestellt, qué aber nichts a ihrer Función ändert. Handles kleiner como 0 son also ebenso gültig.

Saludo
Roland

XProfan X4
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

Gerade getestet: Mit Matthias' Code (reines XProfan) podría Yo mi größten Bilder (16 MPixel, Dateigröße encima 6 MB) problemlos invitar. Größere Bilder Yo no. Yo benutze mi aktuelle XProfan-Versión.

Apéndice: Und auch el oben verlinkte Afrika-Bild macht en más alto Auflösung (75 MPixel) no Problemas.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Matthias
Arlt

Tuve con 11.2 getestet y Jörg vmtl. con X4. Dann scheinen como wohl todavía otro Faktoren una Papel a spielen...sólo welche? Mir war el en efecto todavía nie aufgefallen, como Yo solch große Bilder eben auch no habe.
Ach sí...si FreeProfan y OLE se no así bastante mögen...mi "schlankere" API-Variante kommt sí bastante sin OLE de.

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

Jörg
Sellmeyer

RGH (11.06.2020)

RGH

Apéndice: Und auch el oben verlinkte Afrika-Bild macht en más alto Auflösung (75 MPixel) no Problemas.

Como frage Yo mich aber, por qué en el No funktioniert. Yo zwar todavía XP con 2GB Ram aber con meiner Variante de Andreas' Code funktioniert lo sí, also kann no generell al Speicher oder el Windowsversion mentira.
Tal vez kannst du otra vez schauen, qué como el Unterschiede en deiner Versión a meiner son.
Der verschlankte Code de Matthias funktioniert en me de paso auch no.

Außerdem fällt me en, dass Matthias imprimir verwendet, en el Bild a verarbeiten. Das se en mi Code vermieden, pero sólo por Speicherschiebereien el Handle ermittelt.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Matthias
Arlt

@Jörg
Yo habe hier en diesem PC en efecto XP SP2 en él. Nachdem nun Roland no Problemas beim Laden des Bildes hatte, tener Yo el Ganze veces rápidamente en un virtuellen Win 7 probiert. Und siehe como...hay hay auch kein Problema!

Wenn se nun el profaninterne Code lt. Roland a el OLE-Prozedere de Andreas anlehnt, muß lo aber doch Unterschiede geben, porque extern funtioniert lo sí mittels OLE.

Das imprimir en mi Code es hay eigentlich sólo, porque Yo el Handle adecuado bekommen quería. ¿Por qué aber esta API-Variante, el eigentlich sólo GDI(+)-Características nutzt, No en va, me está nun otra vez una Rätsel.

Mysteriös...aber immerhin una Schritt más...

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

Jörg
Sellmeyer

Yo habs ahora en nem Laptop con Win7 y 4GB Ram getestet y lo funktioniert con deinem Code. Das erklärt aber siempre todavía no, por qué lo en me con mi Code auch en mkeinem minderbemittelten Rechner funktioniert pero no con deinem Code.

XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Matthias
Arlt

Es sí el Mysterium...

GDI+ debería en XP sí standardmäßig disponible ser. Es lo also vmtl. no.
Usted könntest vlt. veces el Rückgabewerte schrittweise para cada Funktionsaufruf ansehen. Eventuell führt el algo más !?

Festhalten puede wir jedenfalls, daß se create("HPIC" bajo XP (y wohl sólo hay) en Bildern de annähernd 8000x8000 untypisch verhält. Kein Problema, si al weiß oder solche Bilder no ha.

Den folgenden Passus kannst Usted auch de el OLE-Variante entfernen:

TestHandle& = Crear("HPIC",-1,Bild$)
Título de la ventana Str$(TestHandle&) + " En muy großen Bildern es el Ergebnis hier 0"
DeleteObject TestHandle&

OLE kommt sin ihn de y benötigt ihn no (systemunabhängig). Deshalb es él hay m.E. auch no hilfreich (y stiftet vlt. Verwirrung).

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia