请教：在DELPHI7下如何用IDHTTP实现文件的上传？急急急!(100分)

wxf_wxf · 2006-03-23

用IDHTTP。POST方法时报HTTP/1.1 404错误！

ki11er · 2006-03-23

winsock

wxf_wxf · 2006-03-23

有哪位高人用过的，指教一下沙！

wxf_wxf · 2006-03-23

大家发一下言沙！

wxf_wxf · 2006-03-24

没有人用过吗？

dos1234 · 2006-04-07

那个就不是在ONREAD和ONWRITE读写数据了。 在ServerSocket1GetThread时，自己来创建线程与client通信的。 如以下示例(转) ------------------------- TCP/IP 多线程传文件 --------------------- //=========================================================== //服务器端 unit svSocketThread; interface uses   SysUtils, Classes, ComCtrls, ScktComp, ExtCtrls, StdCtrls; type  TServerThread=class(TServerClientThread)  private    WriteSize: integer; //发送数据缓冲区大小,以字节为单位    FilesName: string;  //文件名    FilesStrm : TFileStream; //文件流    FilesLength: integer; //文件大小    FileCurrLength: integer; //当前传送多少个字节    ListItem: TListItem;    ErrorRaise : Boolean;    procedure ThreadCountDec;    procedure ListItemAdd;    procedure ListItemEnd;    procedure ListItemErr;  protected    procedure ClientExecute; override;  public   constructor Create(CreateSuspended: Boolean;      ASocket: TServerClientWinSocket; AFileName: string;      AWriteSize: integer); overload;   destructor  Destroy; override;  end; implementation uses svMain,utCommon; //============================================================================== {=== ServerThread ===} constructor TServerThread.Create(CreateSuspended: Boolean; ASocket: TServerClientWinSocket;      AFileName: string; AWriteSize: Integer); begin  inherited Create(CreateSuspended, ASocket);  FilesName := AFileName; //传送的文件名  WriteSize := AWriteSize*1024;  FilesLength:=0;  FileCurrLength := 0;  FilesStrm := TFileStream.Create(FilesName, fmOpenRead or fmShareDenyNone);  FilesLength:= FilesStrm.Size;  ErrorRaise := False; end; destructor TServerThread.Destroy; begin  FreeAndNil(FilesStrm);  FilesName:='';  if ErrorRaise then    Synchronize(ListItemErr)  else    Synchronize(ListItemEnd);  Synchronize(ThreadCountDec);    inherited; end; procedure TServerThread.ClientExecute; const  ReadLen = 1024; var  pStream: TWinSocketStream;  Buffer: Pointer;  ReadText, SendText: String; begin  //创建连接流对像,与客户通信  pStream := TWinSocketStream.Create(ClientSocket, 60000);  try    //try 1    //--------------------------------------------------------------------------    while (not Terminated) and ClientSocket.Connected do begin      try  //try 2        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        //分配读数据缓冲区        Buffer := AllocMem(ReadLen);        if pStream.WaitForData(6000) then begin //if 1          pStream.Read(Buffer^, ReadLen);          ReadText := PChar(Buffer);          FreeMem(Buffer);                    if ReadText = KEY_Clt[1] then begin              //客户请求文件名             //在ListView上增加用户信息             Synchronize(ListItemAdd);             //返回待下载地文件名             SendText := KEY_Srv[1]+ FilesNameSepStr+ ExtractFileName(FilesName);             pStream.Write(SendText[1], Length(SendText)+1);             end          else if ReadText = KEY_Clt[2]  then begin        //客户请求文件长度             //返回对应文件大小             SendText := KEY_Srv[2]+ FilesLengthSepStr+ IntToStr(FilesStrm.Size);             pStream.Write(SendText[1], Length(SendText)+1);             end          else if ReadText = KEY_Clt[3] then begin         //请求开始发送文件             Buffer := AllocMem(WriteSize);             Inc(FileCurrLength, pStream.Write(Buffer^, FilesStrm.Read(Buffer^, WriteSize)));             FreeMem(Buffer);             end          else if ReadText = KEY_Clt[4] then begin         //下载文件完毕通知            //结束线程            Terminate;            end;          end; //end if 1        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      except        ErrorRaise := True;        Terminate;      end; //end try 2    end;  //end while    //--------------------------------------------------------------------------  finally    ClientSocket.Close;    pStream.Free;  end; //end try 1 end; procedure TServerThread.ListItemAdd; begin  ListItem := frmMainServer.LView_UserInfo.Items.Add;  ListItem.Caption := DateTimeToStr(Now);  with ListItem.SubItems do begin    Add(ClientSocket.RemoteHost);    Add(ClientSocket.RemoteAddress);    Add(IntToStr(ClientSocket.RemotePort));    Add(FilesName);    Add('传送文件');    end; end; procedure TServerThread.ListItemEnd; begin  if ListItem <> nil then with ListItem.SubItems do    Strings[Count-1] := '传送完毕'; end; procedure TServerThread.ListItemErr; begin      if ListItem <> nil then with ListItem.SubItems do    Strings[Count-1] := '传送错误'; end; procedure TServerThread.ThreadCountDec; begin  with frmMainServer do  begin    //线程计数减一    Dec(FActiveThreadCount);    SBar1.Panels.Items[0].Text := '当前线程数：' + IntToStr(FActiveThreadCount);  end; end; end. //----------------------------------------------------- procedure TfrmMainServer.ServerSocket2GetThread(Sender: TObject;  ClientSocket: TServerClientWinSocket;  var SocketThread: TServerClientThread); begin  SocketThread := TServerThread.Create(True,ClientSocket, FFileName, FBuffSize);  SocketThread.FreeOnTerminate := True;  SocketThread.Resume;  Inc(FActiveThreadCount);  SBar1.Panels.Items[0].Text := '当前线程数：' + IntToStr(FActiveThreadCount); end; //========================================================================================= //客户端 unit ctClientThread; interface uses   SysUtils, Classes, ComCtrls, ScktComp, ExtCtrls, StdCtrls; type  TClientThread = class(TThread)  private    CltSocket: TClientSocket;    FilesName: string;    FilesStrm: TFileStream;    FilesLength: Integer;    FileCurrLength, CurrReadSize: Integer; //以字节为单位    ReadLen: integer;  //每次读取数据的缓冲区大小    ParentDir: String;    procedure Init(LengthText: String);    procedure StepProgressToEnd;    procedure StepProgress;  protected    procedure Execute; override;  public    constructor Create(CreateSuspended: Boolean; ClientSocket: TClientSocket; AParentDir: String);overload;    destructor Destroy; override;  end; implementation uses utCommon,ctMain; //============================================================================== {=== TClientThread ===} constructor TClientThread.Create(CreateSuspended: Boolean; ClientSocket: TClientSocket; AParentDir: String); begin  ParentDir := AParentDir;  inherited Create(CreateSuspended);  CltSocket := ClientSocket;  ReadLen   :=4*1024; end; destructor TClientThread.Destroy; begin  CltSocket.Close;  FreeAndNil(FilesStrm);  FilesName:='';  inherited; end; procedure TClientThread.Execute; var  pStream: TWinSocketStream;  ReadBuffer: Pointer;  ReadText, TaskName, SendText: String;  Start, FileReading: Boolean; begin      Start := False;  FileReading := False;  pStream := TWinSocketStream.Create(CltSocket.Socket, 60000);  try    //--------------------------------------------------------------------------    while (not Terminated) and CltSocket.Active do begin      if not Start then begin         SendText := KEY_Clt[1];         pStream.Write(SendText[1], Length(SendText));         Start := True;         end;      ReadBuffer := AllocMem(ReadLen);      if pStream.WaitForData(6000) then begin //if 1         //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         CurrReadSize := pStream.Read(ReadBuffer^, ReadLen);         if FileReading then begin   //if 2            //**************************            Inc(FileCurrLength, FilesStrm.Write(ReadBuffer^, CurrReadSize));            Synchronize(StepProgress);            if FileCurrLength >= FilesLength then  begin               SendText := KEY_Clt[4];               pStream.Write(SendText[1], Length(SendText));               Synchronize(StepProgressToEnd);               FileCurrLength := 0;               Terminate;               end            else begin               SendText := KEY_Clt[3];               pStream.Write(SendText[1], Length(SendText));               end;         //**************************         end      else begin          //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          ReadText := PChar(ReadBuffer);          TaskName := Copy(ReadText, 1, Length(KEY_Srv[1]));          if TaskName = KEY_Srv[1] then begin  //文件名             Delete(ReadText, 1, Length(KEY_Srv[1])+1);             FilesName := ReadText;             SendText := KEY_Clt[2];             pStream.Write(SendText[1], Length(SendText));             end          else if TaskName = KEY_Srv[2] then begin //文件长度             Delete(ReadText, 1, Length(KEY_Srv[1])+1);             Init(ReadText);             SendText := KEY_Clt[3];             pStream.Write(SendText[1], Length(SendText));             FileReading := True;             end;          //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^        end;  //end if 2      //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      end; //end if 1      FreeMem(ReadBuffer);    end; //end while    //--------------------------------------------------------------------------  finally    pStream.Free;    CltSocket.Close;  end; end; procedure TClientThread.Init(LengthText: String); begin  FileCurrLength := 0;  FilesName := ParentDir +'copy_'+FilesName;  if FileExists(FilesName) then     DeleteFile(FilesName);  FilesStrm := TFileStream.Create(FilesName, fmCreate);  FilesLength :=strtointdef(LengthText,0);  if FilesLength<>0 then begin     frmMainClient.PBar1.Max :=FilesLength div ReadLen;     if (FilesLength mod ReadLen)<>0 then        frmMainClient.PBar1.Max:=frmMainClient.PBar1.Max+1;     end ; end; procedure TClientThread.StepProgress; begin   frmMainClient.PBar1.Position:=frmMainClient.PBar1.Position +1; end; procedure TClientThread.StepProgressToEnd; begin  frmMainClient.InitUI(2); end;   end. //------------------------------------------------- procedure TfrmMainClient.btnDownClick(Sender: TObject); begin  case TComponent(Sender).Tag of    0:    begin      InitUI(1);      //创建读写线程      ClientThread := TClientThread.Create(True, ClientSocket2, ExtractFilePath(ParamStr(0)));      ClientThread.FreeOnTerminate := True;       //建立连接      ClientSocket2.Open;      //线程开始运行      ClientThread.Resume;    end;    1:    begin      ClientThread.Terminate;      Close;    end;    2:      Close;  end; end; //========================================================================= //公用文件 unit utCommon; interface uses  Classes,SysUtils; const  Key_Clt: array[1..4] of string=    ('AskForFilesName',     'AskForFilesLength',     'AskForFilesData',     'WantToDiscount');  Key_Srv: array[1..2] of string=    ('Return1',     'Return2') ;  FilesNameSepStr='|';  FilesLengthSepStr=','; type  TTestRec=record    No: string[8];    Name: string[16];  end; function StringToStrings(SepStr: string; s: string): TStrings; function StringsToString(SepStr: string; Strs: TStrings; GetFileName: Boolean=False): string; implementation //============================================================================== function StringToStrings(SepStr: string; s: string): TStrings; var P: integer; begin  Result:=TStringList.Create ;  P:=Pos(SepStr,s);  while p<>0 do begin    Result.Add(Copy(s,1,p-1));    Delete(s,1,p-1+length(SepStr));    P:=Pos(SepStr,s);    end;  Result.Add(s); end; function StringsToString(SepStr: string; Strs: TStrings; GetFileName: Boolean=False): string; var i: integer; begin  Result:='';  for i:=0 to Strs.Count-1 do   if not GetFileName then     Result:=Result+SepStr+Strs   else     Result:=Result+SepStr+ExtractFileName(Strs);  Delete(Result,1,length(SepStr)); end; end. //-----------------------------------------------------------------------------------------------

请教：在DELPHI7下如何用IDHTTP实现文件的上传？急急急!(100分)

wxf_wxf

Unregistered / Unconfirmed

ki11er

Unregistered / Unconfirmed

wxf_wxf

Unregistered / Unconfirmed

wxf_wxf

Unregistered / Unconfirmed

wxf_wxf

Unregistered / Unconfirmed

dos1234

Unregistered / Unconfirmed

Similar threads