Fastream Technologies wrote:
> Yes I need something similar. Actually I will have a SSL server and
> need the client to select files such as cert and privkey from remote
> file system. 

Something similar is already available in the THttpServer.
Have look at option "Allow Dir List" in the Delphi (non-SSL)
webserver demo.

--
Arno Garrels   

> 
> Regards,
> 
> SZ
> 
> 
> On 4/15/09, A Drent <albert.dr...@rug.nl> wrote:
>> 
>> 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
-- 
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