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" <[email protected]>
To: "ICS support mailing" <[email protected]>
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
