* Copy Cat *

[dw817]

Hello:

* B4GL is flawed ! This should give the same filesize but is off by one-byte.

sub copyfile(i$,o$):dim i=openfileread(i$),o=openfilewrite(o$):while endoffile(i)=0
writebyte(o,readbyte(i)):wend:closefile(o):closefile(i):endsub

copyfile("append.gb","new.gb")
print"ok!"

With a LengthOfFile(), you could fudge a fix, but that also doesn't exist ..

[UNDISCLOSED]

I could make a DLL for this, but the DLL SDK for FreeBASIC is buggy when using string params.

[dw817]

Hmm.. A simpler solution might be:

sub copyfile(a$,b$):dim a=openfileread(a$),b=openfilewrite(b$),c,d
  while endoffile(a)=0:readbyte(a):c=c+1:wend:a=openfileread(a$):for d=2to c
  writebyte(b,readbyte(a)):next:closefile(b):closefile(a):endsub

copyfile("freesound.dll","new.gb")
print"ok!"

Hope This Helps !

[DJLinux]

May 4, 2009 10:10:45 GMT -5 UNDISCLOSED said:

I could make a DLL for this, but the DLL SDK for FreeBASIC is buggy when using string params.

this isn't true :-)
if you don't know how to handle strings take a look inside the source code of the ToolBox Plugin.

Joshy

[UNDISCLOSED]

YES! Now I have that sorted I can get coding, see you in three months . . .

[UNDISCLOSED]

I made the DLL, here it is:
basic4gl.proboards.com/index.cgi?board=dllpc&action=display&thread=2845

[twasik4]

what might your .DLL pluggin do.. b4 i download it..

[UNDISCLOSED]

Well it has a LenOfFile() and shell(), and FreeMem() and a lot of stuff that doesnt work, and a lot of stuff that does.

[twasik4]

thanks but no thanks. make it actually good and i might download it