Including a binary file to a compiled executeable

[Johan_Haegg]

I have written a program and found the address for a lable where i want to insert a binary file that the program is able to read.
I am 100% sure that the address is the correct, and the data that will be inserted is taged with the size of the data.
But how the )#% do i convert the position to the position in the file?
I found 4200545, so it is not in bits, and the file is 20 000byte large, so it is not a position in bytes.
Working on a self-extracting package if anyone is interested in what it will be used for.

[darklordz]

How to include a File and the Extract it....

Code: Select all

Procedure Expand()
    If CreateFile(1, "REALEXEFILENAMEHERE")
        UseFile(1)
        L1= ?ExitProc-?Inc
        WriteData(?Inc,L1) 
        CloseFile(1)
    EndIf
    ProcedureReturn 1
Inc:
    IncludeBinary "REALEXEFILENAMEHERE"
ExitProc:
EndProcedure

[Johan_Haegg]

The File is inserted after the program is compiled, so IncludeBinary wont work.

Code: Select all

; PureBasic Visual Designer v3.62


;- Window Constants
;
#Window_0 = 0

;- Gadget Constants
;
#txtpath = 0
#path = 1
#ext = 2
#txt = 3

#size = 4200545

Procedure UnPak(outdir.s, infile.s)
  OpenPack(infile.s)
  CreateDirectory(outdir.s)
  Mem = NextPackFile()
  
  CreateFile(#1, outdir.s+"list.lst")
  WriteData(Mem, PackFileSize())
  CloseFile(#1)
  
  ReadFile(#1, outdir.s+"list.lst")
  Repeat
    procname.s = ReadString()
    If Right(Procname.s,1) = "\"
      PrintN("Created directory: " + outdir.s + procname.s)
      CreateDirectory(outdir.s+procname.s)
    Else
      Mem = NextPackFile()
      PrintN("Unpacking: " + outdir.s + procname.s)
      CreateFile(#2, outdir.s + procname.s)
      WriteData(Mem, PackFileSize())
      CloseFile(#2)
      UseFile(#1)
    EndIf
  Until Eof(#1)
  CloseFile(#1)
  ClosePack()
EndProcedure


Procedure Open_Window_0()
  Delay(1)
  If OpenWindow(#Window_0, 215, 0, 290, 73,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar , "SmartPak Selfextractor")
    If CreateGadgetList(WindowID())
      StringGadget(#txtpath, 0, 0, 270, 20, "")
      ButtonGadget(#path, 270, 0, 20, 20, "...")
      ButtonGadget(#ext, 200, 30, 90, 40, "Extract")
      TextGadget(#txt, 5, 30, 190, 40, "First public beta of SmartPak, dont expect something extraordinary or completly bug-free.")
      
    EndIf
  EndIf
EndProcedure
If ReadFile(#1, "d:\omgunoob.txt")
  CloseFile(#1)
  CreateFile(#1, "d:\temp.txt")
  WriteString(Str(?LB))
  CloseFile(#1)
EndIf
Open_Window_0()
SetGadgetText(#txtpath,PeekS(#size))
Repeat
  Event = WaitWindowEvent()
  If Event = #PB_EventGadget
    Select EventGadgetID()
      
      Case #path
        SetGadgetText(#txtpath, PathRequester("Select Path...", GetGadgetText(#txtPath)))
      Case #ext
      CreateDirectory(GetGadgetText(#txtPath))
      CreateFile(#1, GetGadgetText(#txtPath) + "smartpak.tmp")
      WriteData(#size+259, PeekL(#size+255))
      CloseFile(#1)
      UnPak(GetGadgetText(#txtPath), GetGadgetText(#txtPath) + "smartpak.tmp")
      DeleteFile(GetGadgetText(#txtPath) + "smartpak.tmp")
      Quit = 1
    EndSelect
  EndIf
  If Event = #PB_EventCloseWindow
    Quit = 1
  EndIf
Until Quit=1
Delay(1000)
End
LB:

Lots of tweaking to do, but its the result of an hours work and loads of hours of technical problems with this one thing.

A string is inserted with the default path and a long is inserted with total filesize, then the package made with CreatePackage() is inserted into the executeable.

So, no IncludeBinary is possible due to the fact that the final product will not be shipped with PureBasic compiler and libraries.

Hope it clear what needs to be done.

[Pupil]

I think the way to go is to append the data to the exe and not try to binary include it somehow. I.e. you create the extract tool exe and then just writes the data to the end of this file. To find the data you just open the exe that's running and check for the occurence of a ID-tag at the start of the data...

[Johan_Haegg]

i have tried to append the exe with the data, but i always get an error saying that the file will not fit into the memory. And the appended file is only 680kb...

[EDIT]
Found one error, i used an id twice when allocateing memory in the procedure that combines the files... one problem solved

[Pupil]

i have tried to append the exe with the data, but i always get an error saying that the file will not fit into the memory. And the appended file is only 680kb...

That's weird, i've appended data > 20 MBytes to an exe and have had no problem...

[Johan_Haegg]

The problem was that i somehow mixed the buffers containing the program and some other buffer when appending the exe, its solved now, but i still cant address the begining of the data correctly...
#size = 4194304 min
#size = 4227072 max

even if the package is added, it still wont work with higher values. This is makeing me insane! Is there a way for the program to know its own name and location?

btw, the "This program cannot..." starts at 4194382 and it seems to be counting in bytes. If i just had my good old hexeditor here.

[Johan_Haegg]

Well, found out that it starts counting from H400000, but after that, no idea. H4BD8 position in the exe(found my good old hexedit) is located at H404BB8
when the program itself is running. So it lost 32byte somewhere.
And i still cant get it to read the data inserted witj

Code: Select all

Procedure AddToSFX(pakfile.s, path.s, outfile.s)
  outpath = AllocateMemory(#1, 255)
  PokeS(outpath, path.s)

  ReadFile(#2, "d:\smartpak.exe")
  smartpak = AllocateMemory(#2, Lof())
  ReadData(smartpak, Lof())
  paklen = Lof()
  CloseFile(#2)

  ReadFile(#2, pakfile.s)
  pak = AllocateMemory(#3, Lof())
  ReadData(pak, Lof())
  length = AllocateMemory(#4, 4)
  PokeL(length, Lof())
  CloseFile(#2)
  
  CreateFile(#2, outfile.s)
  WriteData(smartpak, paklen)
  WriteData(outpath, 255)
  WriteData(length, 4)
  WriteData(pak, PeekL(length))
  CloseFile(#2)

EndProcedure

Used this code as a replacement for the old ?LB-output:

Code: Select all

If ReadFile(#1, "d:\omgunoob.txt")
  a = #size
  Repeat
    If PeekS(a) <> ""
      Length = Len(PeekS(a))
      answer = MessageRequester("Debug Mode", PeekS(a) + " @ " + Str(a) + " Len:" + Str(Length), #PB_MessageRequester_YesNo)
      a = a + Length
    EndIf
    a = a + 1
  Until Answer=7
EndIf

When the data and program is combined, it still crashes when i reach a position over H404BB8. Well well, i might as well just start with the packet distrubution system i was planning and skip the self-extracting until i get some inspiration or something

[EDIT]
1. Allways read FAQ when you get stuck
2. See 1.
3. You dont get it, do you?

Found how to get the app to know its own name and path in the FAQ, ill use that instead of the non-working tech i am using right now.

[Froggerprogger]

I haven't read all text here, but how about of making a copy of your exe in the system's-temp-path at programstart ?

Code: Select all

temppath.s = Space(1000)
GetEnvironmentVariable_("TEMP",temppath.s,1000)

Then you could change the binarypart inside it and afterwards:
a) start it for one-time-use or
b) start it with a programparameter, that copies it back to the program's directory and overwrites the old one.

But perhaps this is not what you were looking for ?!$%

[Johan_Haegg]

I finaly managed to get it to work!
If someone want the full source for the packer and the self-extracting exe, feel free to download it from:
smartpak.rar

You might have to right-click and save as, i am to lazy to configure apache correctly

The Example is not 100% complete, ran out of time...

[kruddick]

This is exactly what I am looking for... but the link is broken. Can you post the code?

Thanks
Kent

[Bonne_den_kule]

Can you post the code?

I need help i too!