Subj : Help
To   : All
From : Wayne Steele
Date : Sun Oct 09 2005 07:44 am

Hi All,

I'm trying too workout why elebbs ftp server fails to send longfilenames with
spaces but will send longfilenames without spaces correctly... When you try and
send lfn with spaces it sends 0 bytes and resends :( comes back with a 450
error...

Below is the code for sending the file was hoping to have the file put into "
" how does one do this?

procedure cmdRetr(const CurSlot: Longint; var ParamString: String);
var ResStr : String;
WildCardStr : String;
ListGroup : Longint;
ListArea : Longint;

FilesInf : FilesRecord;

Temp_F : pFileObj;
InvalidDir : Boolean;
DidRead : Longint;
Counter : Longint;
DidSent : Longint;
TmpBuf : Array[0..4095] of Char;
begin
{-- we default to the current group/area listing -------------------------}
ListArea := ftpConnectionRec(Connections[CurSlot].SrvData^).CurArea;
ListGroup := ftpConnectionRec(Connections[CurSlot].SrvData^).CurGroup;

{-- make sure we can retrieve the file etc, then actually send it --------}
with ftpConnectionRec(Connections[Curslot].SrvData^) do
begin
{-- Break it up ------------------------------------------------------}
GetPartsFromDir(ParamString,
WildCardStr,
CurSlot,
InvalidDir,
ListGroup,
ListArea);

{-- Get the file path ------------------------------------------------}
GetFilesRecord(FilesInf, ListArea, true);

{-- if we have access to this group ----------------------------------}
if NOT CheckFileAreaAccess(FilesInf,
TRUE, { download }
FALSE, { groupcheck }
FALSE, { upload check }
FALSE, { list access }
ListGroup,
ftpConnectionRec(
Connections[CurSlot].SrvData^).Exitinfo){ exitinfo } then
WildCardStr := �;

{-- we should add checks wether the file is unavailable, missing, etc-}
{-- to it, but currently we only do that at the listing part ---------}

{-- make sure we have download access --------------------------------}
if WildcardStr <> � then
begin
{-- Now try opening the file -------------------------------------}
New(Temp_F, Init);
Temp_F^.Assign(FilesInf.FilePath + StripIllegal(WildCardStr));
Temp_F^.FileMode := ReadMode + DenyNone;

if Temp_F^.Open(1) then
begin
{-- open data connections ------------------------------------}
if OpenDataConnection(CurSlot, ResStr) then
begin
{-- we have a working dataconnection, use it as we want --}
while (NOT Temp_F^.EOF) AND (DataThread.ConnectionAlive) do
begin
{-- read the required data ---------------------------}
DidRead := Temp_F^.BlkRead(TmpBuf, SizeOf(TmpBuf));

{-- create a small loop to ensure we send everything -}
Counter := 0;

while (Counter < DidRead) AND (DataThread.ConnectionAlive) do
begin
DataThread.SendBuf(TmpBuf[Counter], (DidRead - Counter), DidSent);

if DidSent = DidRead then
Inc(Counter, DidSent)
else DataThread.DoSleep(100);
end; { while }

end; { while }

{-- and eventually close it again ------------------------}
CloseDataConnection(CurSlot, true);
end; { if }
end { file open }
else SendCodeStr(CurSlot, 450);

{-- and close the file -------------------------------------------}
Dispose(Temp_F, Done);
end { if }
else begin
SendCodeStr(CurSlot, 450);
end; { file is not available (security) }
end; { with }
end; { proc. cmdRetr }



Thanking anyone in adavnce...

Lata,
    zomorf
---
* Origin: Come & Visit for a Kick@ss EleBBS & EleWEB BBS (3:633/690)

You are viewing proxied material from cvs.synchro.net. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.