aiirii(ari) : 这个事情很急,是否有更好的解决方法? var stResult:string; i:integer; begin i:=2048*4; stResult:=Inet1.GetChunk(i); Memo1.Lines.add(stResult); while length(stResult)<>0 do begin sleep(1000); stResult:=Inet1.GetChunk(i); Memo1.Lines.add(Inet1.GetChunk(i)); end; end;
但如果你將代碼貼出來, 說不定我也能給點意見!
这个事情很急,是否有更好的解决方法?
var stResult:string;
i:integer;
begin
i:=2048*4;
stResult:=Inet1.GetChunk(i);
Memo1.Lines.add(stResult);
while length(stResult)<>0 do
begin
sleep(1000);
stResult:=Inet1.GetChunk(i);
Memo1.Lines.add(Inet1.GetChunk(i));
end;
end;
我用的是delphi7,你能告诉我NMHTTP1在那里码?
最好再举个例子
begin
sleep(1000);
stResult:=Inet1.GetChunk(i);
Memo1.Lines.add(Inet1.GetChunk(i));
end;
改:
Memo1.Lines.add(stResult);你再試試!!
begin
sleep(1000);
stResult:=Inet1.GetChunk(i);
Memo1.Lines.add(stResult);
end;