300在问一个问题.........关于上传文件的问题!!!

Question

服务器端建一个FTP服务器。用FTP上传。

Answer 1

建一个FTP服务器,用FTP上传。 

Answer 2

能不能写一些代码.........不使用FTP控件.....还有没有其它办法....能不能给我说说使用流来上传文件的方法!!!

Answer 3

用IStream接口进行上传吧！
写一个的dcom服务器,传递一个IStream接口用来传递文件就行了。
以前写过一个从服务器下载文件的测试程序，你看看，改一下就应该可以坐上传之用了！unit Unit2;{$WARN SYMBOL_PLATFORM OFF}interfaceuses
  ComObj, ActiveX, Project2_TLB, StdVcl, Windows, SysUtils, Forms;type
  TDComTest = class(TAutoObject, IDComTest)
  protected
    procedure GetFile(out TheStream: IUnknown); safecall;
  end;implementationuses ComServ;procedure TDComTest.GetFile(out TheStream: IUnknown);
var
  hMem: HGLOBAL;
  dwSize: Integer;
  FileStream: IStream;
  fHandle: THandle;
  buf: Pointer;
  RealSize: LongInt;
  xh: Int64;
begin
  fHandle := FileOpen(ExtractFilePath(Application.ExeName) + 'test.bmp',
      fmOpenRead);
  dwSize := FileSeek(fHandle, 0, 2);
  FileSeek(fHandle, 0, 0);
  buf := AllocMem(dwSize);
  FileRead(fHandle, buf^, dwSize);
  FileClose(fHandle);
  hMem := GlobalAlloc(GHND, dwSize);
  if CreateStreamOnHGlobal(hMem, true, FileStream) = S_OK then
  begin
    FileStream.Write(buf, dwSize, @RealSize);
    FileStream.Seek(0, 0, xh);
    TheStream := FileStream;
  end;
end;initialization
  TAutoObjectFactory.Create(ComServer, TDComTest, Class_DComTest,
    ciMultiInstance, tmApartment);
end.

Answer 4

copyfile()就可以，为何那么麻烦呢？
不过要在server上建立一个共享目录。

Answer 5

re:VSaber(☆浪人☆)　你有没有QQ号码??
告诉我吧

Answer 6

用ftp方式，你可以看看网上有很多这样的原代码下载的