delphi2010 (ID:36476)

名前

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

本文 turboから2010に変更したときに２つのエラーがでます。 turboでは正常稼動していたプログラムです。 ①http://hogehoge.com/hoge.txtの中身のhttp://yahoo.co.jpというテキストを読み取ってナビゲートしたいのですが、文字化けで漢字になってしまします。http://hogehoge.com/hoge.txt側のエンコードはイロイロ試しましたが全て文字化けでした。 ②Application.ProcessMessages; の ProcessMe までに赤い斜線がはいります、どうしてでしょうか？ 以下ソースです。 ----------------------------- //接続の確立 hSession :=InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); try if Assigned(hSession) then begin //URLのハンドルを取得 hReqUrl :=InternetOpenUrl(hSession,PChar(http://hogehoge.com/hoge.txt), 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); //Memo1.Text :=HtmlStr; Label1.Caption := HtmlStr; Label2.Caption := '[1]'; WebBrowser1.Navigate(HtmlStr); HtmlStr := ''; end; finally InternetCloseHandle(hReqUrl); end; end; finally InternetCloseHandle(hSession); end; Buffer :=''; HtmlStr := ''; {URL1 部分終了}///////////////////////////////////////////////////////////////// WaitTime := 2/24/60/60; //２秒待つ StartTime := Now; while True do begin Application.ProcessMessages; if StartTime + WaitTime < Now then Break; end;