サーバー上のファイル文字列所得の文字化け (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;