1. Having a hard time understanding something...
Hi,
I have been trying to add more features to Daniel Berstien's euftp.e
file, and succesfully added a delete remote file routine... but don't
understand the basics of a few things...
I can get the routine to execute without causing an error, but can't
get any data from it...I'm not doing something right. Bear in mind that
there is an entire framework of buttons, starting the program logs on, send
sends a file, receive recieves a file (and sometimes deletes the local file
it seems... (a little side effect) and also now I am working on ...
from ftp.e
FtpGetCurrentDirectory = link_c_func(wininet,
--BOOL FtpGetCurrentDirectory(
-- IN HINTERNET hFtpSession,
--OUT LPSTR lpszCurrentDirectory,
--IN OUT LPDWORD lpdwCurrentDirectory
--);
In my main program...
sequence buffer
buffer = repeat(0,5000)
integer b, sz
object size
size = length(buffer)
size = size & "0" --a null terminated string
and further down, activated by a button...
--try to get current directory
procedure FGD(integer mouseX, integer mouseY)
b = allocate_string(buffer)
sz = allocate_string(size)
err = c_func(FtpGetCurrentDirectory,{ftp,b,sz})
if err = 0 then
err = message_box("Error, Error Mr.Bill","EuFTP error",
or_all({MB_APPLMODAL,MB_ICONERROR,MB_OK}))
else
err = message_box("Directory Info Gotten","Great!",
or_all({MB_APPLMODAL,MB_ICONERROR,MB_OK}))
end if
free(b)
free(sz)
end procedure
What am I doing wrong? My variable types are all screwed up, I am sure.
The sequence "buffer" ends up empty, even if I check it before I free up its
handls?
I am wondering if I need to grab the info that is in the 5000 spaces
after the address that "b" is pointing to. Is that right? Could you tell
me if my variables need changing, and also where I can find out what each of
these variable types can be found to be defined? such as LPCSTRG and DWORD
etc...
Thanks...
Monty in Oregon
