サーバー上のファイル文字列所得の文字化け (ID:38352)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

以前別の案件で以下のソースでサーバー上のファイルの中身(半角英数の文字列)を取得することに成功し使用していました、今回別の案件で使用したところ文字列の最後尾に変な文字化けが表示されてしまいます、
改行が化けているのかと思ったのですが改行ではないようです。

以前のファイルはサーバーでphpで書き出したものです
今回のファイルはWIN上のファイルだったのでそれが原因かと思い、同じようにサーバーで書き出しにしましたが結果は同じでした
文字コードも一通りは試してみましたがダメでした。

文字列最後尾の文字化けを治す方法を教えてください、宜しくお願いします。

const{追加}
  URL ='http://test.com/test.txt';

//接続の確立
  hSession :=InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
  if Assigned(hSession) then
  begin
    //URLのハンドルを取得
    hReqUrl :=InternetOpenUrl(hSession,PChar(url), nil, 0,INTERNET_FLAG_RELOAD, 0);
    try
    if Assigned(hReqUrl) then
    begin
      while true do begin
       //URLハンドルを元にBufferに読み込む(ファイル最後まで繰り返す)
       InternetReadFile(hReqUrl, @Buffer, Sizeof(Buffer), ReadCount);
       //ファイルの最後までいったら抜ける
       if ReadCount = 0 then Break;
       HtmlStr :=HtmlStr + string(Buffer);
      end;
        //HtmlStr確認用のアレ
        //ShowMessage(HtmlStr);
    Label1.Caption := HtmlStr;

try
    WebBrowser1.Navigate(HtmlStr);
    except

end;

HtmlStr := '';
    end;
    finally
      InternetCloseHandle(hReqUrl);
    end;
  end;
  finally
    InternetCloseHandle(hSession);
  end;

←解決時は質問者本人がここをチェックしてください。

戻る