Var   mem:TMemorystream; Begin   mem := TMemoryStream.Create;      HTTP.Request.ProxyServer := '';//設置代理   slTemp := TStringList.Create;//建立序列   HTTP.Get('http://……',mem);   slTemp.LoadFromstream(mem);   （怎麽在這裡想監測數據載入完成？？？？） ........ mem.Free; End; 永遠的DELPHI

------
永遠的DELPHI

引言: Var mem:TMemorystream; Begin mem := TMemoryStream.Create; HTTP.Request.ProxyServer := '';//設置代理 slTemp := TStringList.Create;//建立序列 HTTP.Get('http://……',mem); slTemp.LoadFromstream(mem); （怎麽在這裡想監測數據載入完成？？？？） ........ mem.Free; End; 永遠的DELPHI

可否請教一下HTTP是用何元件寫的? ～～～Delphi K.Top討論區站長～～～

idhttp 永遠的DELPHI

------
永遠的DELPHI

應該是在idHttp的OnWorkEnd中去判斷 procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode); begin ok:=true; end; Var mem:TMemorystream; Begin mem := TMemoryStream.Create; HTTP.Request.ProxyServer := '';//設置代理 slTemp := TStringList.Create;//建立序列 ok:=false; HTTP.Get('http://……',mem); slTemp.LoadFromstream(mem); （怎麽在這裡想監測數據載入完成？？？？） while not ok do ; ........ mem.Free; End; ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

謝謝，我試一下，如果不行的話還請大大幫忙 永遠的DELPHI

------
永遠的DELPHI

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.