Announcement

**Dale Yarker** · 16 Feb 2018, 11:26 AM

Yes, as a resource.

Assuming "svg" is for "scalable vector grapgics", where is conversion to raster graphics done? If in the program you're writing, store as a string in svg format. Else, convert to bitmap and store as a DIB string resource.

Changing images? Store as resources in multiple DLLs.

Cheers,

**David Clarke** · 16 Feb 2018, 12:24 PM

Thanks Dale.
The SVG is streamed to a browser from the program.

I guess the RESOURCE needs to be defined in a file that was not created with the PB editor...??? To get past the 256 line length??

**Eric Pearson** · 16 Feb 2018, 03:53 PM

> a file that was not created with the PB editor

That's old school.

The modern #RESOURCE metastatement allows you to embed copies of external files, of any type, directly into your program, without using a separate "resource file" or data-type statements. Check out...

#RESOURCE RCDATA

...which allows you to embed anything you want. IIRC, RC = "Raw Character Data". It is not limited to ".DAT" files, as the help implies.

**Stuart McLachlan** · 16 Feb 2018, 04:51 PM

Originally posted by David Clarke View Post

Thanks Dale.
The SVG is streamed to a browser from the program.

I guess the RESOURCE needs to be defined in a file that was not created with the PB editor...??? To get past the 256 line length??

Yep, Just create it using a good editor such as Notepad++. Then specify the created file as:

Code:

#RESOURCE RCDATA, svg1, "SVGImage1.svg"

and access it in your program with

Code:

strSVG= RESOURCE$(RCDATA."svg1")

(Don't try to store it as a STRING resource, that implies WSTRING and is length and ID type restricted)

**Eric Pearson** · 16 Feb 2018, 04:56 PM

> create it using a good editor such as Notepad

I'll offer a clarification:

If the file doesn't already exist, create it using... etc. There's no requirement to use an external editor.

**Dale Yarker** · 16 Feb 2018, 05:57 PM

Stuart is correct. For PBWin 10 and PBCC 6 #RESOURCE STRING is limited to 1 to 127 wide characters containing no nuls. Older versions precompiled resources and did things differently.

So what I said in post 2 is condional upon PB version.

Cheers,

**David Clarke** · 16 Feb 2018, 09:32 PM

Thanks All! Great answers.

**Stuart McLachlan** · 16 Feb 2018, 10:35 PM

Originally posted by Eric Pearson View Post

> create it using a good editor such as Notepad

I'll offer a clarification:

If the file doesn't already exist, create it using... etc. There's no requirement to use an external editor.

There is if you want to create or modify an SVG string that is more than 256 characters since the PBEditor is limited to that line length.

**Eric Pearson** · 17 Feb 2018, 07:40 AM

I wasn't trying to correct you, I thought the OP implied that a file already exists but I probably over-analyzed.

**Steve Hutchesson** · 20 Feb 2018, 05:50 PM

It can be stored as ASMDATA if you have a way to convert the data to DB format. The RC format that Stuart described works fine if you want to load it as a file.

**Steve Hutchesson** · 20 Feb 2018, 07:32 PM

Here is a toy that will do exactly what you need, take any external file and convert it into a DB notation that is written back as a normal basic string. It can handle any file size data and it is accessible as a normal basic string. This is the output format.

Code:

' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

  ' File K:\basic_tools\bin2dbex\blackgrad.bmp opened at 310 bytes

FUNCTION blackgrad_bmp() as STRING

    #REGISTER NONE

    LOCAL pdst as DWORD

    dst$ = space$(310)
    pdst = StrPtr(dst$)

    ! cld
    ! mov esi, OFFSET bindata
    ! mov edi, pdst
    ! mov ecx, 310
    ! rep movsb

    FUNCTION = dst$
    Exit FUNCTION

  bindata:
   ! db 66,77,14,1,0,0,0,0,0,0,54,0,0,0,40,0
   ! db 0,0,1,0,0,0,64,0,0,0,1,0,24,0,0,0
   ! db 0,0,0,1,0,0,195,14,0,0,195,14,0,0,0,0
   ! db 0,0,0,0,0,0,0,1,3,0,237,236,242,0,232,232
   ! db 232,0,232,234,235,0,224,228,230,0,223,222,221,0,223,216
   ! db 217,0,213,213,213,0,209,209,209,0,209,207,206,0,204,207
   ! db 209,0,197,201,204,0,196,197,197,0,192,191,197,0,186,190
   ! db 192,0,185,185,186,0,180,183,180,0,177,178,178,0,173,176
   ! db 176,0,168,170,174,0,166,165,165,0,166,159,160,0,159,162
   ! db 163,0,155,154,153,0,155,152,151,0,149,149,146,0,143,142
   ! db 146,0,141,138,144,0,132,137,140,0,135,133,132,0,130,130
   ! db 131,0,122,124,128,0,120,120,121,0,115,119,116,0,112,113
   ! db 114,0,111,113,108,0,102,107,110,0,105,103,106,0,97,97
   ! db 101,0,95,96,93,0,89,90,92,0,88,86,91,0,81,83
   ! db 84,0,81,79,79,0,72,79,77,0,73,71,76,0,70,64
   ! db 70,0,65,67,62,0,59,63,65,0,51,57,56,0,49,52
   ! db 57,0,51,45,47,0,44,43,48,0,37,40,45,0,35,37
   ! db 38,0,34,33,37,0,32,26,28,0,21,22,24,0,17,18
   ! db 24,0,19,21,16,0,13,17,19,0,5,11,15,0,4,6
   ! db 8,0,0,0,7,0

END FUNCTION

' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

Attached Files

bin2dbex.zip (34.5 KB, 9 views)

**Dean Gwilliam** · 22 Feb 2018, 05:20 AM

removed

**Stuart McLachlan** · 22 Feb 2018, 07:20 AM

Originally posted by Steve Hutchesson View Post

Here is a toy that will do exactly what you need, take any external file and convert it into a DB notation that is written back as a normal basic string. It can handle any file size data and it is accessible as a normal basic string. This is the output format.

Code:

' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

' File K:\basic_tools\bin2dbex\blackgrad.bmp opened at 310 bytes

FUNCTION blackgrad_bmp() as STRING

#REGISTER NONE

LOCAL pdst as DWORD

dst$ = space$(310)
pdst = StrPtr(dst$)

! cld
! mov esi, OFFSET bindata
! mov edi, pdst
! mov ecx, 310
! rep movsb

FUNCTION = dst$
Exit FUNCTION

bindata:
! db 66,77,14,1,0,0,0,0,0,0,54,0,0,0,40,0
! db 0,0,1,0,0,0,64,0,0,0,1,0,24,0,0,0
! db 0,0,0,1,0,0,195,14,0,0,195,14,0,0,0,0
! db 0,0,0,0,0,0,0,1,3,0,237,236,242,0,232,232
! db 232,0,232,234,235,0,224,228,230,0,223,222,221,0,223,216
! db 217,0,213,213,213,0,209,209,209,0,209,207,206,0,204,207
! db 209,0,197,201,204,0,196,197,197,0,192,191,197,0,186,190
! db 192,0,185,185,186,0,180,183,180,0,177,178,178,0,173,176
! db 176,0,168,170,174,0,166,165,165,0,166,159,160,0,159,162
! db 163,0,155,154,153,0,155,152,151,0,149,149,146,0,143,142
! db 146,0,141,138,144,0,132,137,140,0,135,133,132,0,130,130
! db 131,0,122,124,128,0,120,120,121,0,115,119,116,0,112,113
! db 114,0,111,113,108,0,102,107,110,0,105,103,106,0,97,97
! db 101,0,95,96,93,0,89,90,92,0,88,86,91,0,81,83
! db 84,0,81,79,79,0,72,79,77,0,73,71,76,0,70,64
! db 70,0,65,67,62,0,59,63,65,0,51,57,56,0,49,52
! db 57,0,51,45,47,0,44,43,48,0,37,40,45,0,35,37
! db 38,0,34,33,37,0,32,26,28,0,21,22,24,0,17,18
! db 24,0,19,21,16,0,13,17,19,0,5,11,15,0,4,6
! db 8,0,0,0,7,0

END FUNCTION

' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

What does that do that:

Code:

 #RESOURCE RCDATA, blackgrad,"K:\basic_tools\bin2dbex\blackgrad.bmp"
DIM blackgrd_bmp as STRING
blackgrd_bmp = RESOURCE$(RCDATA,"blackgrad")

doesn't do much more simply?

**Steve Hutchesson** · 22 Feb 2018, 08:45 AM

Stuart,

You are right but mine is simpler and faster to use as it includes the data in the basic source file. Now unrelated, I may have confused a capacity with one of the assemblers I use but from memory there was a technique to directly include binary files in PB without using an RC file.

**Michael Mattias** · 22 Feb 2018, 03:22 PM

Probably not much use to PB programmers and certainly not supported by the #RESURCE statement... you can have multiple physical lines to represent a long string in a *.RC resource scrpt file as demo'd here ===> User-Defined Resource Demo January 26 2003

Oops, that demo has no multiline resources. Let me go get one from my product files...

... Ok, here's one:

Code:

// pppsdemov3.rc
//
// 10.01.04 1.0.0  Original
// 11.01.04 1.0.1  Corrected some typos in richtext and reworded one comment here (database search)
// 11.08.04 1.0.2  Changed claims summary report to version which shows "ALLOWED" instead of "COVD CHG"
// 06.09.05 2.0.0  Demo for version 3.0
// 12.03.07 2.1.0  Demo for version 3.2 very few changes needed

#include "resource.h"

#define COPYRIGHT_SYMBOL "\251"
#define REGISTERED_SYMBOL "\256"
#define TRADEMARK_SYMBOL  "\153"

......

#define crlf                  0x0a0d      //  inverted because stored as WORD

....

//MAIN REMITTANCE PROCESSING SCREEN
scr_main      SLIDE       zc_remitcenter_main.bin
scr_main      COMMENT
BEGIN
  "This is the main PPPS remittance processing screen. Either 'Open by File Name' or 'Open by Payer Name' ",
  "may be used o select the name of the payer's remittance file to be processed.",
  "As that remittance file is opened, the user is ",
  "presented with this summary showing remittance advice documents found in that file.",
  crlf,
  "On this and all other screens of the PPPS, the user may select the 'datasource', which is ",
  "the destination for remittance information storage or source for reports and inquires;",
  " as well as direct that print report output be sent either directly ",
  "to a named printer or to the What-You-See-Is-What-You-Get print previewer."
END
...

(Actual file is 306 lines but they don't show anything of interest here.)

The separate sections of the long string (of text) are delimited by the trailing commas while the actual text is quoted. When this is loaded (Lockresource()) it comes out as one single text string.

MCM

**John Montenigro** · 24 Feb 2018, 10:06 AM

While the other suggestions are about various techniques, I'm thinking you might also want to ensure that the program is able to access as much memory as possible...

Code:

#OPTION LARGEMEM32

-John

Announcement

How to include a very long string in a program??

How to include a very long string in a program??

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment