?? unit1.pas

?? 這兩個函數 function app_path1:string function socket_rec_line1(socket1:TCustomWinSocket timeout1:integ
?? PAS
字號:
unit Unit1;

interface

uses
  {}filectrl,inifiles,{}Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ExtCtrls;

type
  Tbuf_char=array[0..4095] of char;
  Tbuf_byte=array[0..4095] of byte;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Memo1: TMemo;
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    filename1:string; //本地文件名
    serfilename:string;  //服務器端文件名
    serhost1:string;  //服務器地址
    can_rec1:boolean; //是否可以接收
    stop1:boolean; //是否停止

  end;

var
  Form1: TForm1;
  pos1:longint; //上次下載到的位置


implementation


{$R *.dfm}

function app_path1:string;
begin
  result:=extractfilepath(application.ExeName);
end;


//接收一行數據//socket,超時，結束符
function socket_rec_line1(socket1:TCustomWinSocket;timeout1:integer;crlf1:string=#13#10):string;
var
  buf1:Tbuf_char;
  r1:integer;
  ts1:TStringStream; //保存所有的數據

  FSocketStream: TWinSocketStream;

begin

  ts1:=TStringStream.Create('');
  FSocketStream:= TWinSocketStream.create(Socket1, timeout1);


  //while true do//下面的一句更安全,不過對本程序好象沒起作用
  while (socket1.Connected=true) do
  begin

    //確定是否可以接收數據
    //只能確定接收的超時，可見WaitForData的源碼
    if not FSocketStream.WaitForData(timeout1) then break; //continue;

    //這一句是一定要有的，以免返回的數據不正確
    zeromemory(@buf1,sizeof(buf1));
    r1 := FsocketStream.Read(buf1, 1); //每次只讀一個字符，以免讀入了命令外的數據
    //讀不出數據時也要跳出，要不會死循環
    if r1=0 then break; //test
    //用FsocketStream.Read能設置超時
    //r1:=socket1.ReceiveBuf(buf1,sizeof(buf1));
    ts1.Write(buf1,r1);

    //讀到回車換行符了
    if pos(crlf1,ts1.DataString)<>0 then
    begin
      break;
    end;

  end;

  result:=ts1.DataString;

  //沒有讀到回車換行符,就表示有超時錯，這時返回空字符串
  if pos(crlf1,result)=0 then
  begin
    result:='';
  end;

  ts1.Free;
  FSocketStream.Free;

end;


  function get_host1(in1:string):string;
  begin
    in1:=trim(in1);
    if pos('http://',lowercase(in1))=1 then
    begin
      in1:=copy(in1,length('http://')+1,length(in1));
    end;
    if pos('/',in1)<>0 then
    begin
      in1:=copy(in1,0,pos('/',in1)-1);
    end;  
    result:=in1;
  end;

  function get_file1(in1:string):string;
  begin
    in1:=trim(in1);
    if pos('http://',lowercase(in1))=1 then
    begin
      in1:=copy(in1,length('http://')+1,length(in1));
    end;
    if pos('/',in1)<>0 then
    begin
      in1:=copy(in1,pos('/',in1)+1,length(in1));
    end;  
    result:=in1;

  end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Lines.Add(socket.ReceiveText);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  url1:string;
  buf1:Tbuf_byte;
  rec1:longint;
  f1:file;

  cmd1:string; //這一行的內容
  reclen1,real_reclen1:longint; //服務器返回的長度;實際已經收到的長度
  value1:string; //標志們的值
  total_len1:longint; //數據總長

begin
  try

    //self.filename1:='c:\temp1.dat';
    assignfile(f1,self.filename1);
    can_rec1:=false;
    self.stop1:=false;

    if FileExists(self.filename1)=true then
    begin
      reset(f1,1);
      pos1:=filesize(f1);
    end
    else
    begin
      rewrite(f1,1);
      pos1:=0;
    end;

    seek(f1,pos1);


    ClientSocket1.Active:=false;
    ClientSocket1.Host:=get_host1(edit1.Text);
    ClientSocket1.Port:=80;


    url1:='';

    self.serfilename:=get_file1(edit1.Text);
    self.serhost1:=get_host1(edit1.Text);

    //取得文件長度以確定什么時候結束接收[通過"head"請求得到]

    ClientSocket1.Active:=false;
    ClientSocket1.Active:=true;
    url1:='';
    
    url1:=url1+'HEAD /'+self.serfilename+' HTTP/1.1'+#13#10;

    //不使用緩存,我附加的
    //與以前的服務器兼容
    url1:=url1+'Pragma: no-cache'+#13#10;
    //新的
    url1:=url1+'Cache-Control: no-cache'+#13#10;

    //不使用緩存,我附加的_end;

    url1:=url1+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)'+#13#10;
    //下面這句必須要有
    //url1:=url1+'Host: clq.51.net'+#13#10;
    url1:=url1+'Host: '+self.serhost1+#13#10;
    url1:=url1+#13#10;
    
    ClientSocket1.Socket.SendText(url1);

    while ClientSocket1.Active=true do
    begin

      if self.stop1=true then break;

      cmd1:=socket_rec_line1(ClientSocket1.Socket,60*1000);

      //計算文件的長度

      if pos(lowercase('Content-Length: '),lowercase(cmd1))=1 then
      begin
        value1:=copy(cmd1,length('Content-Length: ')+1,length(cmd1));
        total_len1:=strtoint(trim(value1));
      end;

      //計算文件的長度_end;

      if cmd1=#13#10 then break;
    end;  

    //取得文件長度以確定什么時候結束接收_end;

    //發送get請求，以得到實際的文件數據

    clientsocket1.Active:=false;
    clientsocket1.Active:=true;

    url1:='';

    //url1:=url1+'GET http://clq.51.net/textfile.zip HTTP/1.1'+#13#10;
    //url1:=url1+'GET /textfile.zip HTTP/1.1'+#13#10;
    url1:=url1+'GET /'+self.serfilename+' HTTP/1.1'+#13#10;
    url1:=url1+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'+#13#10;
    //應該可以不要url1:=url1+'Accept-Language: zh-cn'+#13#10;
    //應該可以不要url1:=url1+'Accept-Encoding: gzip, deflate'+#13#10;

    //不使用緩存,我附加的
    //與以前的服務器兼容
    //url1:=url1+'Pragma: no-cache'+#13#10;
    //新的
    //url1:=url1+'Cache-Control: no-cache'+#13#10;

    //不使用緩存,我附加的_end;

    url1:=url1+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)'+#13#10;
    //接受數據的范圍,可選
    //url1:=url1+'RANGE: bytes=533200-'+#13#10;
    url1:=url1+'RANGE: bytes='+inttostr(pos1)+'-'+#13#10;
    //下面這句必須要有
    //url1:=url1+'Host: clq.51.net'+#13#10;
    url1:=url1+'Host: '+self.serhost1+#13#10;
    //應該可以不要
    //url1:=url1+'Connection: Keep-Alive'+#13#10;
    url1:=url1+#13#10;
    ClientSocket1.Socket.SendText(url1);

    while ClientSocket1.Active=true do
    begin

      if self.stop1=true then break;

      cmd1:=socket_rec_line1(ClientSocket1.Socket,60*1000);

      //是否可接收
      if pos(lowercase('Content-Range:'),lowercase(cmd1))=1 then
      begin
        can_rec1:=true;
      end;

      //是否可接收_end;

      //計算要接收的長度
      
      if pos(lowercase('Content-Length: '),lowercase(cmd1))=1 then
      begin
        value1:=copy(cmd1,length('Content-Length: ')+1,length(cmd1));
        reclen1:=strtoint(trim(value1));
      end;

      //計算要接收的長度_end;

      //頭信息收完了
      if cmd1=#13#10 then break;
    end;

    real_reclen1:=0;
    while ClientSocket1.Active=true do
    begin


      if self.stop1=true then break;

      //不能接收則退出
      if can_rec1=false then break;

      //如果文件當前的長度大于服務器標識的長度,則是出錯了，不要寫入文件中
      if filesize(f1)>=total_len1 then
      begin
        showmessage('文件已經下載完畢了！');
        break;
      end;

      zeromemory(@buf1,sizeof(buf1));
      rec1:=ClientSocket1.Socket.ReceiveBuf(buf1,sizeof(buf1));

      //如果實際收到的長度大于服務器標識的長度,則是出錯了，不要寫入文件中
      if real_reclen1>=reclen1 then
      begin
        showmessage('文件已經下載完畢了！');
        break;

      end;
      //如果當前的長度大于服務器標識的長度,則是出錯了，不要寫入文件中
      if pos1=reclen1 then
      begin
        showmessage('文件已經下載完畢了！');
        break;

      end;

      blockwrite(f1,buf1,rec1);

      real_reclen1:=real_reclen1+rec1;

      Label1.Caption:=FormatFloat('#,##',real_reclen1)+'/'+FormatFloat('#,##',reclen1);
      Label1.Caption:=Label1.Caption+'->'+inttostr(trunc((real_reclen1/reclen1)*100))+'%';
      application.ProcessMessages;



    end;

    closefile(f1);
    showmessage('ok');

    //發送get請求，以得到實際的文件數據_end;

    ClientSocket1.Active:=false;
    
  except
    closefile(f1);
    showmessage('discon...');
  end;


end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  url1:string;  
begin
{  url1:='';

  url1:=url1+'GET http://clq.51.net/textfile.zip HTTP/1.1'+#13#10;
  url1:=url1+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'+#13#10;
  //應該可以不要url1:=url1+'Accept-Language: zh-cn'+#13#10;
  //應該可以不要url1:=url1+'Accept-Encoding: gzip, deflate'+#13#10;

  //不使用緩存,我附加的
  //與以前的服務器兼容
  url1:=url1+'Pragma: no-cache'+#13#10;
  //新的
  url1:=url1+'Cache-Control: no-cache'+#13#10;

  //不使用緩存,我附加的_end;

  url1:=url1+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)'+#13#10;
  //接受數據的范圍,可選
  url1:=url1+'RANGE: bytes=533200-'+#13#10;
  //下面這句必須要有
  url1:=url1+'Host: clq.51.net'+#13#10;
  url1:=url1+'Connection: Keep-Alive'+#13#10;
  url1:=url1+#13#10;
  ClientSocket1.Socket.SendText(url1);

 }
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  ini1:tinifile;
begin
  ini1:=tinifile.Create(app_path1+'sys1.ini');
  ini1.WriteString('file1','host1',edit1.Text);

  ini1.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ini1:tinifile;
begin
  ini1:=tinifile.Create(app_path1+'sys1.ini');
  edit1.Text:=ini1.ReadString('file1','host1',edit1.Text);
  self.filename1:=ini1.ReadString('file1','filename1','c:\temp1.dat');
  edit2.Text:=self.filename1;
  //pos1:=filesize(
  ini1.Free;


end;

procedure TForm1.Edit2Change(Sender: TObject);
var
  ini1:tinifile;
begin
  ini1:=tinifile.Create(app_path1+'sys1.ini');
  ini1.WriteString('file1','filename1',edit2.Text);

  self.filename1:=edit2.Text;
  ini1.Free;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  url1:string;
  buf1:Tbuf_byte;
  rec1:longint;
  f1:file;

  cmd1:string; //這一行的內容
  reclen1,real_reclen1:longint; //服務器返回的長度;實際已經收到的長度
  value1:string; //標志們的值

begin
    self.stop1:=false;

    ClientSocket1.Active:=false;
    ClientSocket1.Host:=get_host1(edit1.Text);
    ClientSocket1.Port:=80;
    ClientSocket1.Active:=true;

    url1:='';

    self.serfilename:=get_file1(edit1.Text);
    self.serhost1:=get_host1(edit1.Text);
    //url1:=url1+'GET http://clq.51.net/textfile.zip HTTP/1.1'+#13#10;
    //url1:=url1+'GET /textfile.zip HTTP/1.1'+#13#10;
    url1:=url1+'GET /'+self.serfilename+' HTTP/1.1'+#13#10;
    //url1:=url1+'HEAD /'+self.serfilename+' HTTP/1.1'+#13#10;
    url1:=url1+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'+#13#10;
    //應該可以不要
    //url1:=url1+'Accept-Language: zh-cn'+#13#10;
    //應該可以不要
    //url1:=url1+'Accept-Encoding: gzip, deflate'+#13#10;

    //不使用緩存,我附加的
    //與以前的服務器兼容
    //url1:=url1+'Pragma: no-cache'+#13#10;
    //新的
    //url1:=url1+'Cache-Control: no-cache'+#13#10;

    //不使用緩存,我附加的_end;

    url1:=url1+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)'+#13#10;
    //接受數據的范圍,可選
    //url1:=url1+'RANGE: bytes=533200-'+#13#10;
    url1:=url1+'RANGE: bytes='+inttostr(533263)+'-533263'+#13#10;
    //下面這句必須要有
    //url1:=url1+'Host: clq.51.net'+#13#10;
    url1:=url1+'Host: '+self.serhost1+#13#10;
    //應該可以不要
    //url1:=url1+'Connection: Keep-Alive'+#13#10;
    url1:=url1+#13#10;
    ClientSocket1.Socket.SendText(url1);


    //while  ClientSocket1.Active=true do
    begin
      zeromemory(@buf1,sizeof(buf1));
      rec1:=ClientSocket1.Socket.ReceiveBuf(buf1,sizeof(buf1));

      real_reclen1:=real_reclen1+rec1;

      memo1.Lines.Add(strpas(@buf1));

      application.ProcessMessages;
      //if self.stop1=true then break;
    end;

    ClientSocket1.Active:=false;

    showmessage('ok');


end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  self.stop1:=true;
end;

end.
?? 文件大小 190 K
?? 上傳用戶 zyb
?? 所屬分類 Internet/網絡編程
??? 相關標簽

#function #TCustomWinSocket #socket_rec_line #app_path
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit1.pas

?? 快捷鍵說明
