[Inetremote-cvs] plugins/fileman fileman.dpr,1.1,1.2

[<he...@us...>]

Update of /cvsroot/inetremote/plugins/fileman
In directory sc8-pr-cvs1:/tmp/cvs-serv20558

Modified Files:
	fileman.dpr 
Log Message:
Changed plugin API
Changed file transfer to stream

Index: fileman.dpr
===================================================================
RCS file: /cvsroot/inetremote/plugins/fileman/fileman.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** fileman.dpr	9 Mar 2003 18:21:14 -0000	1.1
--- fileman.dpr	29 Mar 2003 11:13:43 -0000	1.2
***************
*** 15,19 ****
  
  uses
!   SysUtils, Classes, idHTTPServer, ShellApi, Windows;
  
  {$R *.res}
--- 15,19 ----
  
  uses
!   SysUtils, Classes, idCustomHTTPServer, ShellApi, Windows;
  
  {$R *.res}
***************
*** 29,34 ****
    sr: TSearchRec;
    filename: string;
-   myfile: TFileStream;
-   temp: char;
  begin
    filename := 'D:/'+command;
--- 29,32 ----
***************
*** 47,53 ****
    else //File
    begin
!     myfile := TFileStream.Create(filename, fmOpenRead);
!     responseinfo.ContentStream := myfile;
!     myfile.Free;
      responseinfo.ContentType := 'foo/bar';
    end;
--- 45,49 ----
    else //File
    begin
!     responseinfo.ContentStream := TFileStream.Create(filename, fmOpenRead);
      responseinfo.ContentType := 'foo/bar';
    end;