It's a wonderful idea that should have "been done", but most people slack off, myself included. I would try and start small. One of the things I wanted to do was write a platform-independent dialog oader. I agree. It would be nice to have something like that. :) A form script language based on XML ...

Thanks for your help! I'll try that! :)

//edit: IT WORKS! :)) You were right. Now I use a "CompressionEnable" bit to prevent that the compressed files are larger than the original files.

yetifoot wrote:At the moment it just loads, but i'd consider adding save if people are interested.

That would be great! :)

Hi, I tried to compress some files using this routines: Declare Function Encode Alias "fb_hEncode" (ByVal lpIn As Any Ptr,_ ByVal asize As Integer,_ ByVal lpOut As Any Ptr,_ ByRef out_size AS Integer ) As Integer Declare Function Decode Alias "fb_hDecode" (ByVal lpIn ...

IT WORKS! :D IT WORKS! ^^ Thanks for your help!

@DJPeters: Your code runs perfectly on Windows 2000. :) I'll test it on Windows 98.

It really works on W2k/XP. ByRef is necessary because the DLL shall return a string as result. I didn't succeed in using a FUNCTION instead of a SUB. So I use a SUB with ByRef.

Hi, I don't use CDECL. My DLL sub looks like this: SUB Something (a as byte ptr, b as byte ptr) export temp$=*a temp$="=>"+temp$+"<=" *b = temp$ END SUB In VB I use the DLL like this Private Declare Sub Something Lib "mydll" _ Alias "Something@8" (...

Could someone upload the file to FileAnchor? radasm.com seems to be down. :/

Hi, I made some DLLs for my VB6 applications and everything is fine if I run the programs on Windows 2000 / XP. If I try to start them on Windows 98 First Edition they crash with a message like this one at the point where the DLLs are called: http://home.arcor.de/ssteiner/qbforum/pfault.png I use FB...

This librasapi32.dll.a works fine! :)

Hey, now I solved the problem that way: Dim library As Integer Dim RasEnumConnections as Function (lpRasCon As Any, lpcb As Long,_ lpcConnections As Long) As Long Dim RasHangUp As Function (ByVal hRasConn As Long) As Long library = DyLibLoad("rasapi32.dll") if(l...

Thanks! First I downloaded your librasapi.dll.a but it didn't work. :/ So I got pexports.exe and tried to create the file using your batch file. A DEF and an A file were created. I copied the A file into C:\Freebasic\lib\win32 and the DEF file into C:\Freebasic\lib\win32\def but now there's another ...

Hi! I want to hang up a DFU connection. I wrote the following source but FB (0.14 stable) doesn't find RASAPI32.dll. :/ Declare Function RasEnumConnections Lib "rasapi32.dll" _ Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As _ Long, lpcConnections As Long) As Long D...

I favorite ALT+F4. ;)