Not sure what you want exactly. Something like this?

function TFMain.FDir(Cmd : string) : string;
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  FileAttrs := faAnyFile;
  if Cmd = '' then Cmd := '\*.*';

  if FindFirst(ExtractFileDir(ParamStr(0))+cmd, FileAttrs, sr) = 0 then
  result := ExtractFileDir(ParamStr(0))+cmd+'<br><table>';
  begin
   repeat
    result := result + '<tr><td>'+sr.Name+
                       '</td><td>'+IntToStr(sr.Size)+
                       '</td><td>'+FormatDateTime('yyyy-mm-dd 
hh:nn:ss',FileDateToDateTime(sr.Time))+
                       '</td></tr>'+#10;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  result := result +'</table>';
end;

It's a part of our applicationserver based upon the work of ics...

albert
----- Original Message ----- 
From: "Fastream Technologies" <ga...@fastream.com>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Wednesday, April 15, 2009 12:04 PM
Subject: [twsocket] Remote file/folder selection routine for ICS with 
HTML/JS


> Hello,
>
> Is there ready code for this available? If not, are there other people
> needing such a feature? What kind of approach would you suggest? How much
> should one be willing to pay for sponsoring such a work and to whom?
>
> Best Regards,
>
> SZ
> -- 
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be
> 

-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to