---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

monazilla

342 ：turbo type D@monazilla.org(藁 ：2001/02/20(火) 10:26

しつもーん。
http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page2.html
をDelphiに書き直した。

uses WinInetを加えて

procedure TForm1.Button1Click(Sender: TObject);
var
　hSession: HINTERNET;
　hService: HINTERNET;
　lpBuffer: array[0..1024+1] of Char;
　dwBytesRead: DWORD;
begin
　hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
//　hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
　if Assigned( hSession ) then
　begin
　　hService := InternetOpenUrl( hSession, PChar(Edit1.Text), nil, 0, 0, 0);
　　if Assigned( hService ) then
　　　while true do
　　　begin
　　　　dwBytesRead := 1024;
　　　　InternetReadFile( hService, @lpBuffer, 1024, dwBytesRead );
　　　　if dwBytesRead = 0 then break;
　　　　lpBuffer[dwBytesRead] := #0;
　　　　Memo1.Lines.Add( lpBuffer );
　　　end; //while
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

しかし、普通に書き直した"INTERNET_OPEN_TYPE_DIRECT"では読み込まない
"INTERNET_OPEN_TYPE_PRECONFIG"にしたら読み込んだ。なぜ？

Indyやめて、WinInetにしようかしら?( ｗ ;)
要望が多ければそうする。

316KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30