WDSibyl / JPG-Files (or other)

[Wolfgang]

Hello!

Has anyone the sources to display the JPG-Files (or others e.g. TIFF,
PNG, ....) in WDSibyl?

I would like to include this into WDSibyl.
In the next Version WDSibyl can load by the tBitmap-Class the Formats:
BMP, PCX and GIF.

Thank you.

bye,
Wolfgang

[g***@nifty.com]

Internal Error(Undef Label) went out and it stopped when the source of PasJPEG
was compiled with WDSibyl.

How should I deal?

The Jpeg library for FreePascal is here.
http://www.nomssi.de/pasjpeg/pasjpeg.html
I think that it can misappropriate it because there is tImageClass
for Delphi in this.
Though I have only the use experience with VirtualPascal.

[Wolfgang]

Hello!

Please send me your modified source (SPR, PAS, .... Files). Then I can
look whats happen.

bye,
Wolfgang

Post by g***@nifty.com
Internal Error(Undef Label) went out and it stopped when the source of PasJPEG
was compiled with WDSibyl.
How should I deal?

The Jpeg library for FreePascal is here.
http://www.nomssi.de/pasjpeg/pasjpeg.html
I think that it can misappropriate it because there is tImageClass
for Delphi in this.
Though I have only the use experience with VirtualPascal.

---------------------------------------------------------------------

[g***@nifty.com]

The file that did the compilation failure to following URL was hardened.
http://homepage2.nifty.com/Average/arch/gloader.zip

Here is a graphic loader of bmp, jpeg, and png that became an origin (VirtualP
ascal version).
http://homepage2.nifty.com/Average/arch/gsv2.zip

However, if PasJpeg work with WDSibyl, we ignore this story :-)


----- Original Message -----

Date: Wed, 17 Jan 2007 06:45:13 +0100
Subject: Re: [sibyl-dev] WDSibyl / JPG-Files (or other)
Hello!
Please send me your modified source (SPR, PAS, .... Files). Then I can
look whats happen.
bye,
Wolfgang

Post by g***@nifty.com
Internal Error(Undef Label) went out and it stopped when the source of PasJP

EG

Post by g***@nifty.com
was compiled with WDSibyl.
How should I deal?

The Jpeg library for FreePascal is here.
http://www.nomssi.de/pasjpeg/pasjpeg.html
I think that it can misappropriate it because there is tImageClass
for Delphi in this.
Though I have only the use experience with VirtualPascal.

---------------------------------------------------------------------

--
Homepage: www.wdsibyl.org
---------------------------------------------------------------------

[Wolfgang]

Hello

I have download the files and I look what I can do

bye
Wolfgang

Post by g***@nifty.com
The file that did the compilation failure to following URL was hardened.
http://homepage2.nifty.com/Average/arch/gloader.zip
Here is a graphic loader of bmp, jpeg, and png that became an origin (VirtualP
ascal version).
http://homepage2.nifty.com/Average/arch/gsv2.zip
However, if PasJpeg work with WDSibyl, we ignore this story :-)
----- Original Message -----

Date: Wed, 17 Jan 2007 06:45:13 +0100
Subject: Re: [sibyl-dev] WDSibyl / JPG-Files (or other)
Hello!
Please send me your modified source (SPR, PAS, .... Files). Then I can
look whats happen.
bye,
Wolfgang

Post by g***@nifty.com
Internal Error(Undef Label) went out and it stopped when the source of PasJP

EG

Post by g***@nifty.com
was compiled with WDSibyl.
How should I deal?

The Jpeg library for FreePascal is here.
http://www.nomssi.de/pasjpeg/pasjpeg.html
I think that it can misappropriate it because there is tImageClass
for Delphi in this.
Though I have only the use experience with VirtualPascal.

---------------------------------------------------------------------

--
Homepage: www.wdsibyl.org
---------------------------------------------------------------------

---------------------------------------------------------------------

[Wolfgang]

Hello!

I have look into then source and the problem is in JMemMgr Procedure
"jinit_memory_mgr" in the line 1214

The compiler as the problem to conpile form
if (long (test_mac) <> MAX_ALLOC_CHUNK) or
((MAX_ALLOC_CHUNK mod SIZEOF(ALIGN_TYPE)) <> 0) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);

when you change it to

if (long (test_mac) <> MAX_ALLOC_CHUNK) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
if ((MAX_ALLOC_CHUNK mod SIZEOF(ALIGN_TYPE)) <> 0) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);

then the unit can compile.

bye,
Wolfgang

Post by g***@nifty.com
The file that did the compilation failure to following URL was hardened.
http://homepage2.nifty.com/Average/arch/gloader.zip
Here is a graphic loader of bmp, jpeg, and png that became an origin (VirtualP
ascal version).
http://homepage2.nifty.com/Average/arch/gsv2.zip
However, if PasJpeg work with WDSibyl, we ignore this story :-)
----- Original Message -----

Date: Wed, 17 Jan 2007 06:45:13 +0100
Subject: Re: [sibyl-dev] WDSibyl / JPG-Files (or other)
Hello!
Please send me your modified source (SPR, PAS, .... Files). Then I can
look whats happen.
bye,
Wolfgang

Post by g***@nifty.com
Internal Error(Undef Label) went out and it stopped when the source of PasJP

EG

Post by g***@nifty.com
was compiled with WDSibyl.
How should I deal?

The Jpeg library for FreePascal is here.
http://www.nomssi.de/pasjpeg/pasjpeg.html
I think that it can misappropriate it because there is tImageClass
for Delphi in this.
Though I have only the use experience with VirtualPascal.

---------------------------------------------------------------------

--
Homepage: www.wdsibyl.org
---------------------------------------------------------------------

---------------------------------------------------------------------

[Average]

Post by Wolfgang
Hello!
I have look into then source and the problem is in JMemMgr Procedure
"jinit_memory_mgr" in the line 1214
The compiler as the problem to conpile form
if (long (test_mac) <> MAX_ALLOC_CHUNK) or
((MAX_ALLOC_CHUNK mod SIZEOF(ALIGN_TYPE)) <> 0) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
when you change it to
if (long (test_mac) <> MAX_ALLOC_CHUNK) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
if ((MAX_ALLOC_CHUNK mod SIZEOF(ALIGN_TYPE)) <> 0) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
then the unit can compile.
bye,
Wolfgang

I can compile JMemMgr! Thank you!
but other Unit Can't Complie

so new archieve

http://homepage2.nifty.com/Average/arch/gl0130.zip

please check it!

[Wolfgang]

Hello!

I can compile to the Unit JDMaker to the Statement:

MEMCOPY(@(htblptr^)^.bits, @bits, SIZEOF((htblptr^)^.bits));
MEMCOPY(@(htblptr^)^.huffval, @huffval, SIZEOF((htblptr^)^.huffval));

When you change this line in to
var
x : JHUFF_TBL_PTR;
.
.
.
x:=htblptr^;
MEMCOPY(@(x^.bits), @bits, SIZEOF((htblptr^)^.bits));
MEMCOPY(@(x^.huffval, @huffval, SIZEOF((htblptr^)^.huffval));
.
.
.
then you can compile this.

bye,
Wolfgang

Post by Average

Post by Wolfgang
Hello!
I have look into then source and the problem is in JMemMgr Procedure
"jinit_memory_mgr" in the line 1214
The compiler as the problem to conpile form
if (long (test_mac) <> MAX_ALLOC_CHUNK) or
((MAX_ALLOC_CHUNK mod SIZEOF(ALIGN_TYPE)) <> 0) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
when you change it to
if (long (test_mac) <> MAX_ALLOC_CHUNK) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
if ((MAX_ALLOC_CHUNK mod SIZEOF(ALIGN_TYPE)) <> 0) then
ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
then the unit can compile.
bye,
Wolfgang

I can compile JMemMgr! Thank you!
but other Unit Can't Complie
so new archieve
http://homepage2.nifty.com/Average/arch/gl0130.zip
please check it!
---------------------------------------------------------------------

[g***@nifty.com]

The Jpeg library for FreePascal is here.

http://www.nomssi.de/pasjpeg/pasjpeg.html

I think that it can misappropriate it because there is tImageClass
for Delphi in this.

Though I have only the use experience with VirtualPascal.