{"id":588,"date":"2011-06-27T15:56:19","date_gmt":"2011-06-27T07:56:19","guid":{"rendered":"http:\/\/blog.infinity.idv.tw\/index.php\/2011\/06\/27\/delphi-2010%e8%87%aa%e5%b8%b6tidftp%e7%9a%84%e4%b8%ad%e6%96%87%e5%95%8f%e9%a1%8c\/"},"modified":"2011-06-27T17:05:46","modified_gmt":"2011-06-27T09:05:46","slug":"delphi-2010%e8%87%aa%e5%b8%b6tidftp%e7%9a%84%e4%b8%ad%e6%96%87%e5%95%8f%e9%a1%8c","status":"publish","type":"post","link":"http:\/\/blog.infinity.idv.tw\/?p=588","title":{"rendered":"Delphi 2010\u81ea\u5e36TIdFTP\u7684\u4e2d\u6587\u554f\u984c"},"content":{"rendered":"

DELPHI7 + INDY <\/p>\n

\u6293\u6a94\u524d\u5148\u8f49UTF8Encode
filename:= UTF8Encode(filename);  
FIdFtp.Get(filename,tStream,true); <\/p>\n

\u672a\u6e2c\u8a66\u2026\u2026\u2026\u2026\u2026\u2026<\/p>\n

==================================================================================<\/p>\n

\u51fa\u8655:http:\/\/hi.baidu.com\/syncgrey\/blog\/item\/8c894e823c7f78aa6c8119f1.html<\/a><\/p>\n

1\u3001Delphi 2010\u81ea\u5e36TIdFTP\u7684\u4e2d\u6587\u554f\u984c
  \u6700\u8fd1\u4f7f\u7528TIdTFP\uff0c\u4f7f\u7528ChangeDir\u5207\u63db\u5230\u4e2d\u6587\u76ee\u9304\u6642\u5831\u932f\uff0c\u932f\u8aa4\u63d0\u793a\u4e2d\u7684\u4e2d\u6587\u76ee\u9304\u6210\u4e86\u4e00\u4e32\u201c?\u201d\u865f\uff0c\u95b1\u8b80\u6e90\u4ee3\u78bc\u5f97\u77e5\uff0c\u8a72\u63a7\u4ef6\u7684\u9ed8\u8a8dIOHandle\u7684\u9ed8\u8a8dEncoding\u662fASCII\uff08\u4ee3\u78bc\u9801\u70ba20127\uff09\uff0cITdFTP\u5728Connect\u65b9\u6cd5\u4e2d\uff0c\u9023\u63a5\u6210\u529f\u5f8c\uff0c\u6709\u9019\u9ebc\u4e00\u53e5\uff1a<\/p>\n

    \/\/ RLebeau: must not send\/receive UTF-8 before negotiating for it…
    IOHandler.DefStringEncoding := Indy8BitEncoding;<\/p>\n

\u518d\u8f49\u5230Indy8BitEncoding \u4e2d\u770b\u770b\uff1a<\/p>\n

function Indy8BitEncoding(const AOwnedByIndy: Boolean = True): TIdTextEncoding;
var
  LEncoding: TIdTextEncoding;
begin
  if not AOwnedByIndy then begin
    LEncoding := TIdTextEncoding.GetEncoding(28591);
  end else
  begin
    if GId8BitEncoding = nil then begin
      LEncoding := TIdTextEncoding.GetEncoding( 28591);
      if InterlockedCompareExchangePtr(Pointer(GId8BitEncoding), LEncoding, nil) <> nil then begin
        LEncoding.Free;
      end;
    end;
    LEncoding := GId8BitEncoding;
  end;
  Result := LEncoding;
end;<\/p>\n

\u53ef\u4ee5\u770b\u5230\uff0c\u9019\u88e1\u6703\u5275\u5efa\uff08\u5982\u679c\u9084\u6c92\u5275\u5efa\u7684\u8a71\uff09\u8fd4\u56de\u4e00\u500b\u4ee3\u78bc\u9801\u70ba28591 \u7684TEncoding\uff0c\u90a3\u9019\u500b28591 \u5230\u5e95\u662f\u5565\u5b50\u5462\uff1f\u641c\u7d22\u7d50\u679c\u5982\u4e0b\uff1a<\/p>\n

  28591 iso-8859-1 Western European (ISO)<\/p>\n

\u539f\u4f86\u662f\u897f\u6b50\u7684\u7de8\u78bc\uff0c\u4e0d\u652f\u6301\u4e2d\u6587\u5c31\u4e0d\u8db3\u70ba\u5947\u4e86\uff0c\u90a3\u8a72\u5982\u4f55\u8655\u7406\u5462\uff1f\u53ea\u8981\u5728\u8abf\u7528TIdFTP.Connect \u5f8c\uff0c\u589e\u52a0\u4e00\u53e5<\/p>\n

TIdFTP.IOHandler.DefStringEncoding := TEncoding.Default<\/p>\n

\u5c31\u6b63\u5e38\u4e86\uff0c\u6ce8\u610f\u4e00\u5b9a\u8981\u653e\u5728Connect \u4e4b\u5f8c\uff0c\u5426\u5247\u6703\u88abConnect \u65b9\u6cd5\u91cd\u7f6e\u70ba28591 \u4ee3\u78bc\u9801\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"

DELPHI7 + INDY <\/p>\n

\u6293\u6a94\u524d\u5148\u8f49UTF8Encode filename:= UTF8Encode(filename);   FIdFtp.Get(filename,tStream,true); <\/p>\n

\u672a\u6e2c\u8a66\u2026\u2026\u2026\u2026\u2026\u2026<\/p>\n

==================================================================================<\/p>\n

\u51fa\u8655:http:\/\/hi.baidu.com\/syncgrey\/blog\/item\/8c894e823c7f78aa6c8119f1.html<\/p>\n

1\u3001Delphi 2010\u81ea\u5e36TIdFTP\u7684\u4e2d\u6587\u554f\u984c   \u6700\u8fd1\u4f7f\u7528TIdTFP\uff0c\u4f7f\u7528ChangeDir\u5207\u63db\u5230\u4e2d\u6587\u76ee\u9304\u6642\u5831\u932f\uff0c\u932f\u8aa4\u63d0\u793a\u4e2d\u7684\u4e2d\u6587\u76ee\u9304\u6210\u4e86\u4e00\u4e32\u201c?\u201d\u865f\uff0c\u95b1\u8b80\u6e90\u4ee3\u78bc\u5f97\u77e5\uff0c\u8a72\u63a7\u4ef6\u7684\u9ed8\u8a8dIOHandle\u7684\u9ed8\u8a8dEncoding\u662fASCII\uff08\u4ee3\u78bc\u9801\u70ba20127\uff09\uff0cITdFTP\u5728Connect\u65b9\u6cd5\u4e2d\uff0c\u9023\u63a5\u6210\u529f\u5f8c\uff0c\u6709\u9019\u9ebc\u4e00\u53e5\uff1a<\/p>\n

    \/\/ RLebeau: must not send\/receive UTF-8 before negotiating for it…     IOHandler.DefStringEncoding := Indy8BitEncoding;<\/p>\n

\u518d\u8f49\u5230Indy8BitEncoding \u4e2d\u770b\u770b\uff1a<\/p>\n

function Indy8BitEncoding(const AOwnedByIndy: Boolean = True): TIdTextEncoding; var   LEncoding: TIdTextEncoding; […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[381],"_links":{"self":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/588"}],"collection":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=588"}],"version-history":[{"count":2,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/588\/revisions"}],"predecessor-version":[{"id":590,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/588\/revisions\/590"}],"wp:attachment":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=588"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=588"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=588"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}