Var
MAgent, mweb: string;
HSession hService: HINTERNET;
ByteAvaliable byteRead: dwords.
MBuf: PChar;
The begin
//
Mweb:='http://suzhou.19lou.com/forum-922-thread-161391375687612881-1-1.html';
MAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon. The.net CLR 2.0.50727) ';
HSession:=InternetOpen (' ', INTERNET_OPEN_TYPE_DIRECT, nil nil, 0).
If hSession<> Nil then
The begin
HService:=InternetOpenUrl (hSession, PChar (mweb), nil, 0, INTERNET_FLAG_RELOAD, 0).
If hService<> Nil then
The begin
ByteAvaliable:=100000;
MBuf:=AllocMem (byteAvaliable);
InternetReadFile (hService, mBuf byteAvaliable, byteRead);
ShowMessage (mBuf);
The Dispose (mBuf);
end;
end;
InternetCloseHandle (hSession);


This is to get a piece of code web site source code, but why can only get part of the source code? Be urgent!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

CodePudding user response:

Don't sink ah,,

CodePudding user response:

Application of controls will be limited because of you, the correct approach is read cycle, please try me function: http://download.csdn.net/detail/hsfzxjy/5772195, the Get () method

CodePudding user response:

refer to the second floor HSFZXJY response:

application controls are limited because of you, the correct way is to read cycle, please try me function: http://download.csdn.net/detail/hsfzxjy/5772195, the Get () method inside the

wrong number, space,,

CodePudding user response:

I tried there will be repeated