XProfan

Italia

Jörg
Sellmeyer

Profan kommt leider nicht mit sehr grande Bilddateien klar. Ich hab extra mal ein großes Bild angehängt, damit man das selber ausprobieren kann.
Ich würd mir wünschen, dass solche Bilder geladen werden können. Im Prinzip kann man sie in einem HTML-Control problemlos laden und anschauen, dann bleibt aber das Problem, dass man die Bildmaße nicht ermitteln kann.
Außerdem dauert das Laden mit MLoadBmp dann auch viel zu lange. Es gibt von Th. Hölzer ein Codebeispiel (GrafDim.inc), wie man Bitmapdimensionen direkt aus der File auslesen kann. Das wär doch mal was per XProfan, oder?

Kompilieren Markieren Separieren

Cls
MLoadBmp "Africa_satellite_plane.jpg"
Print %bmpx,%bmpy
WaitInput

Kompilieren Markieren Separieren

Cls
ShowMax
Var Bild$ =  "Africa_satellite_plane.jpg"
Var hHTML& = Create("HTMLWin", %hwnd, Bild$, 1, 0, 0, Width(%hwnd), Height(%hwnd))
WaitKey

[OFFTOPIC]Das Hochladen so großer File klappt anscheinend nicht, darum hab ich das Bild mal bei mir hochgeladen: [...]

Vorsicht! Es hat 7,5mb.[/OFFTOPIC]

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

10.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[OFFTOPIC]Normalerweise sind File bis 30MB kein Problem hier auf XProfan.Net -
ich prüf das!

Die File von Deinem Webserver wiederum zeigt mein FF so:

Nachtrag:

Ah, ich sehe am ApacheLog dass es von Deiner Leitung einfach zu lange gedauert hat - hier griff also der Timeout statt die Dateigrößenbeschränkung. Ich ändere das.[/OFFTOPIC]

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

10.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Upps - nach Strg-F5 bekomme ich die gleiche Meldung.
Probier mal "Ziel speichern unter..." - das geht

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

10.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Paul
Glatz

Bei mir unter Firefox 32.0.3 auf Linux wird das Bild angezeigt

XProfan X3

10.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[OFFTOPIC]Nicht ganz bei mir -

nach strg+f5 kommt die bild ist kaputt meldung -

aber aus dem cache wirds angezeigt -

auch speichern unter ging nicht. Also hat auch

FF so seine probleme mit solch riesenbildern.

mir war nur erstmal wichtig das es nicht am communityprogramm liegt.

die maximale "upload-__dauer__" regel ich hoch.

[/OFFTOPIC]

IrfanView ist auch solch MeisterDesGeschehens und zeigt Riesenbilder
auch noch schneller.

Was ich mir vorstellen kann, ist dass vlt. garnicht mal die Bildladeapi nicht
mit solch grande Bildern klarkommt sondern vielleicht nur der ein oder andere DC
und da XProfan bei sowas wie mloadbmp etc. ohne DC nicht auskommt...

Irgendwann hatte ich mal herausgefunden und angesprochen, dass es mir mit
XProfan auf einigen Computern nicht possibile ist, Bilder zu laden und anzuzeigen,
die größer als der Bildschirm sind.

Vielleicht sollten wir uns mal eine Monster-Apimässige eigene IMGInc schreiben
die sich ggf. auch nach nProcs portieren liesse. Ich glaube wenn Roland da anfängt
an seinen 200 GrafikFunktion herumzufummeln dann potuto das doch ziemlich
viel Zeit in Anspruch nehmen.

Was braucht der Mensch per den Anfang?

a) eine Funktion die ein Speicher-Handle erzeugt, unser eigener Anker, eigene imgageStruct damit man sich später noch mehr zum Bild merken kann, sagen wir var long handle=imageCreate(x,y) //bpp und solch kram brauchen wir hier noch nicht da das ja im bitmapHeader steht und wo der steht kann ja in unserer imageStruct stehen

Kompilieren Markieren Separieren

var long image.imageStructSize=12//kann beliebig vergrößert werden später

proc image.create

    parameters long xx,yy
    var handle tmp=globalAllog(gPTR,image.imageStructSize)
    long tmp,0=xx,yy
    return tmp

endproc

b) eine Funktion bool func imageLoadFromFile(image,file) // läd ein bild und speichert handle etc. in die imageStruct. ergo:

Kompilieren Markieren Separieren

proc image.loadFromFile

    parameters handle image,string filename
    case long(image,8) : keineAhnungAPI::destroyimage(long(image,8))
    long tmp,8=keineAhnungAPI::loadImage(filename)
    return getlasterror()==0

endproc

c) imageDraw(image,destDC)
d) bool func destroyImage(image)

Kompilieren Markieren Separieren

proc image.destroy

    parameters handle image
    case long(image,8) : keineAhnungAPI::destroyimage(long(image,8))
    globalFree(image)

endproc

Das dann wiederum zu erweitern potuto sogar Divertimento machen.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

10.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Sowas Aufwendiges hat mir garnicht vorgeschwebt. Mir reicht schon das hier: [...]

Damit kann man die Maße von Bildern auslesen, ohne sie mit XProfan zu laden.
Allerdings hätte ich definitiv nichts dagegen, wenn XProfan auch grande Bilder laden kann.

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

11.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Ich seh gerade, dass schon seit Profan11 die Funktion SizeOf(PicHandle&) die Werte %bmpx und %bmpy% bestückt. Leider sind aber auch diese Werte bei Bilder circa 2000x2000 Pixel nicht mehr korrekt.

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

21.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Also ich habe es mir jetzt mal angeschaut:
Offensichtlich hat die API OleLoadPicture() (wird von LOADBMP ebenso verwandt wie von Create("hPic",-1,<Name>)) hier ein Problem.
Mit meinen 16 MPixel Bildern klappt es noch, aber die 75 MPixel Deines Bildes sind wohl zu viel.
Vorher ist alles ok: Der benötigte Speicher wird bereitgestellt und der Stream geöffnet.

Ich weiß im Moment nicht, was ich da machen potuto.

Saluto
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

22.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Nachtrag:

Manchmal scheint es auch zu klappen. Möglicherweise ist es eine Frage des freien, zusammenhängenden Speichers. Da die JPEG-File intern in BMP umgewandelt wird, braucht Dein Bild etwas circa 300 MB Speicher am Stück.

Folgendes Testprogramm lief eben bei mir korrekt durch (gestern abend aber nicht):

Kompilieren Markieren Separieren

Cls
' MLoadBmp "Z:/Bilder/Africa_satellite_plane.jpg"
' Print %bmpx,%bmpy
' WaitInput
var handle hPic = create("hPic", -1, "Z:/Bilder/Africa_satellite_plane.jpg")
Print hPic
Print sizeOf(hPic)
Print %bmpx,%bmpy
WaitInput

Wenn ich die drei auskommentierten Zeilen wieder reinnehme, klappt jetzt das MLoadBmp, dafür aber das create("hPic",...) nicht mehr.
Es sieht also sehr danach aus, dass die API CreateCompatibleBitmap() beim zweiten Mal nicht mehr ausreichend Speicher findet. OleLoadPicture() klappt noch.

Saluto
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

22.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Ciao,

wieder aus dem Urlaub zurück, mehrtägiges hohes Fieber und einen Husten überstanden und nun wieder am PC!

Auch Versuche, CreateCompatibleBitmap() durch CreateDIBitmap() oder CreateDIBSection zu ersetzen, brachten keine Cambiamento.

Ich belasse es also vorerst dabei. Falls jemand noch eine Idee hat: Ich bin per Proposte offen. Wie gesagt: OLELoadPictute() gibt mir noch dsas PictureObjekt, aber das erstellen einer ausreichend grande Bitmap, um darauf das Picture zu rendern und ein nutzbares Handle zu liefern, schlägt bei XXXXXXXL-Bildern fehl. Ab welcher Dimensione es scheitert, hängt wohl vom Grafiktreiber und dem Speicher des Rechners und/oder der Grafikkarte ab.

Ich wende mich dann mal wieder den Ressourcen zu. Ich würde nämlich auch gerne RES-File verarbeiten, aber dafür gibt es keine APIs. Handarbeit ist angesagt.

Saluto
Roland

XProfan X2
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

29.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ich versuche mal Irfan Skiljan dazu anzuschreiben. Wir hatten damals Gedanken ausgetauscht und er läd und zeigt in IrfanView ja "egal"-wie-grande Bilder.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

29.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Den Gedanken an IrfanView hatte ich auch. Ist ja prima, dass du Kontakt zu ihm hast.
Ist nicht z. B. Gimp auch Open Source?
Ich wäre mit sowas leider hoffnungslos überfordert. Ohne Profan wäre ich aufgeschmissen, was das Programmieren angeht.

@Roland: ich hoffe, das hat dir nicht den Urlaub versaut und deine Erholung vermiest.

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

30.10.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

►