Das nächste Entwicklertreffen findet Anfang Mai in Münster statt - weitere Infos bzw. zur Anmeldung!

GIF-Dateien mit ARC einbinden

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

Antworten
Datalein
Rookie
Rookie
Beiträge: 4
Registriert: Do, 22. Jun 2006 11:02

GIF-Dateien mit ARC einbinden

Beitrag von Datalein » Do, 14. Sep 2006 8:47

Hallo Leute,
wie kann ich mit dem ARC einfache GIF-Bilder einbinden?
Ich bekomme immer "Invalid bitmap format .." , es funktionieren anscheinend wirklich nur BMP Dateien ...

Mache ich was falsch, oder geht das gar nicht?

Danke
Dieter

Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 11547
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg

Re: GIF-Dateien mit ARC einbinden

Beitrag von AUGE_OHR » Do, 14. Sep 2006 10:04

hi
Datalein hat geschrieben:Hallo Leute,
wie kann ich mit dem ARC einfache GIF-Bilder einbinden?
Ich bekomme immer "Invalid bitmap format .." , es funktionieren anscheinend wirklich nur BMP Dateien ...

Mache ich was falsch, oder geht das gar nicht?
versuche mal :

USERDEF GIF
1001 = FILE ".\RES\SOFI.GIF"

gruss by OHR
Jimmy

Datalein
Rookie
Rookie
Beiträge: 4
Registriert: Do, 22. Jun 2006 11:02

Beitrag von Datalein » Do, 14. Sep 2006 10:10

Hi,
geht bei mir nicht ("Syntax Error")

Liegt vielleicht an meiner alten 1.70 Version von Xbase ?!?

Gruß
Dieter

Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 11547
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg

Beitrag von AUGE_OHR » Do, 14. Sep 2006 12:05

hi,
Datalein hat geschrieben: geht bei mir nicht ("Syntax Error")
Liegt vielleicht an meiner alten 1.70 Version von Xbase ?!?
hm ... wenn es nicht im "Handbuch" steht geht es wohl mit der v1.7
und dem *.ARC File noch nicht ...

kannst du es den nicht zur "Laufzeit" mit XbpBitmap:loadFile() laden ?

gruss by OHR
Jimmy

Datalein
Rookie
Rookie
Beiträge: 4
Registriert: Do, 22. Jun 2006 11:02

Beitrag von Datalein » Do, 14. Sep 2006 12:41

AUGE_OHR hat geschrieben:hi,

kannst du es den nicht zur "Laufzeit" mit XbpBitmap:loadFile() laden ?
Hi,
mach ich jetzt auch so, wollte dies aber eigentlich vermeiden ...
Da meine GIFs ja nicht sehr groß sind, wollte ich sie der Sauberkeit halber wie die Icons ins EXE packen.
Ich denke ich sollte auf 1.9 umsteigen ...

Danke für deine Mühe,
Gruß
Dieter

ab-software
UDF-Programmierer
UDF-Programmierer
Beiträge: 51
Registriert: Di, 18. Okt 2005 12:35
Wohnort: 41747 Viersen
Kontaktdaten:

Beitrag von ab-software » Di, 19. Sep 2006 16:48

Hallo,

einbinden in einer ARC Datei kannst du GIF's über:

Code: Alles auswählen

USERDEF GIF  1 = FILE "bilder\test.gif" 
allerdings musst du dann noch die XbpBitmap:load() Methode überladen.

Bei mir sieht das ganze dann folgendermaßen aus:

Code: Alles auswählen

 
  CLASS absBitmap FROM XbpBitmap
   EXPORTED:

   INLINE METHOD Load( cDll, nID, cType )
      LOCAL ;
				xResource := NIL , ;
				lSuccess  := .F. , ;
				nHndl 	 := 0

		DEFAULT cDll TO 'absGra.dll'
		DEFAULT cType TO 'GIF'

		nHndl := DllLoad(cDll)

		IF .NOT. nHndl == 0

      	IF Empty( cType )  // Bitmaps laden
         	lSuccess := ::XbpBitmap:load( nHndl, nID )
      	ELSE  // Für andere Grafiktypen (GIF, JPEG, PNG)
				xResource := LoadResource( nID, nHndl, cType )
         	lSuccess := .NOT. Empty( xResource )
         	::setBuffer( xResource ) 
		   ENDIF
		ENDIF
   RETURN( lSuccess )

Hoffe das hilft dir weiter.

Gruß

Antworten