delphi多线程调用webservice的问题，非常着急。
Delphi(Pascal) code:
function getbook:Integer;stdcall;
var
WsObj:HosServicePortType;
begin
try
CoInitialize(Nil);
WsObj:=MainForm.HTTPRIO1 as HosServicePortType;//引用Mainform上的HTTPRIO控件
WsArray:=WsObj.getBook('0371001','20100302');//发送请求(getbook是webservice中的函数)
finally
CoUninitialize;
end;
Result:=0;
end;
。。。。省略
procedure TMainForm.FormShow(Sender: TObject);
var i:Integer;
ARegistry:TRegistry;
ID: DWORD;
begin
hThread := CreateThread(nil, 0, @getbook, nil,0, ID);//这样产生进程
......省略
我想在线程中实线后台自动发送请求，但是一直提示错误：
Thread Start: Thread ID: 1732. Process HosClient.exe (3436)
First chance exception at $7C812AFB. Exception class ESOAPHTTPException with message 'The handle is in the wrong state for the requested operation - URL:http://192.168.0.100:8080/crm_pt/service/HosService?wsdl - SOAPAction:""'. Process HosClient.exe (3436)
不知道什么原因，我刚开始学习线程，网上查了很多资料都学不来~请求帮助。
我感觉你最好写一个独立的线程，那样好处理一些。
{{
相关问答：
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
错误类型：出错误尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
C#源码
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......
IF THEN ELSE中多个条件怎么写，如：字符串S1，S2，S3，S4均要不为空。
怎么样把它写到IF中去？
请各位帮帮忙，谢谢！
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
