CnPack Forum


 
Subject: 程序池ProcessRequest问题,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
juemimima
新警察
Rank: 1



UID 49593
Digest Posts 0
Credits 8
Posts 2
点点分 8
Reading Access 10
Registered 2010-7-14
Status Offline
Post at 2010-7-14 16:22  Profile | Blog | P.M. 
程序池ProcessRequest问题,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

procedure TfrmTest.ProcessRequest(Sender: TCnThreadPool;
  aDataObj: TCnTaskDataObject; aThread: TCnPoolingThread);
var
  d: TSendData;
  t: TSendThread;
begin
  d := TSendData(aDataObj);
  t := TSendThread(aThread);
  if (d = nil) or (t = nil) then
    Exit;
  Inc(ProcessCount);
  try
    t.idhttp1.Head(d.FMsg);//编译无错,但是跑到这一步就except了,请问怎么弄
    sReadln:=t.idhttp1.Response.RawHeaders.ValueFromIndex[1];
    t.Synchronize(Updatemmo1);   
  except
  end;
end;
Top
 




All times are GMT++8, the time now is 2024-6-16 05:24

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.007896 second(s), 9 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP