DELPHI 6 Update 2#의 버그 및 해결 방법
7872 단어 Delphi
Borland는 Delphi 6에 대한 의미가 큰 두 번째 패치를 발표했는데 SOAP/웹 서비스 개발에 있어 큰 강화를 이루었다"DELPHI 6.02 BizSnap/SOAP/WebService의 4 – 패치 2#의 의미".그런데 한 가지 부분은 제가 그 글에서 언급하지 않은 것이 있는데 그것이 바로 SOAP로 다중 응용 개발을 하는 것입니다. 그때 저는 이 부분을 대충 훑어보았는데 패치 전과 많이 다르다는 것을 발견하지 못했기 때문에 개의치 않았습니다. 얼마 전에 liaoqian이라는 네티즌이 Mail에게 이 분야에 대한 질문을 보냈을 때나는 비로소 Delphi 6 Update 2#이 이 부분에 상당히 큰 변화가 있고 작은 버그가 존재한다는 것을 알아차렸다.우선 《DELPHI 6 선도적 연구-BizSnap/SOAP/WebService의 셋째-SOAP로 삼층 데이터베이스 응용 실현》의 예를 본떠서 웹서비스 3층 데이터 응용을 한다.위의 그림에서 보듯이 서버 인터페이스가 생성되었는지 자동으로 묻는 대화 상자가 나타나면 No 를 선택하고 SOAP Server Data Module 를 새로 만듭니다. 다른 작업은 3 과 같습니다.완료되면 IE에 다음을 입력합니다.http://localhost:1024/Demo3.wadSoapDemo3/wsdl다음과 같은 인터페이스 목록을 볼 수 있다.'의3'에 비해 IAP ServerSOAP 인터페이스가 추가되었고 IWSDL Publish 인터페이스의 Namespace URI도 다르다는 것을 알 수 있다.
Port Type
Namespace URI
Documentation
WSDL
IAppServer
urn:Midas-IAppServer
IAppServer
IAppServerSOAP
http://www.borland.com/namespaces/Types
IAppServerSOAP
ISoapDemo3DM
urn:SvrDMSoap-ISoapDemo3DM
ISoapDemo3DM
IWSDLPublish
http://www.borland.com/namespaces/Types
Lists all the PortTypes published by this Service
IWSDLPublish
주의하면 다음과 같은 문제점도 발견할 수 있다.http://localhost:1024/Demo3.wadSoapDemo3Delphi 6.02에 쓰여진 일반적인 Web Service 같은 페이지를 보지 못할 것입니다. 이것은 좀 정상적이지 않습니다.클라이언트 프로그램을 작성할 때 문제가 발생했습니다. 클라이언트 데이터셋의ProviderName 속성에서 아래로 내려가면 사용할 수 있는ProviderName을 볼 수 없지만, 깜빡이는 서버 창은 서버가 실행 중임을 나타냅니다.웹 앱 Debugger의 기록 정보를 살펴보면 다음과 같은 SOAP 오류 응답을 볼 수 있습니다:
<?xml version="1.0" encoding='UTF-8'?>
<soap-env:envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/" >
<soap-env:body>
<soap-env:fault>
<faultcode>SOAP-ENV:Server</faultcode>
<faultstring>
No invokable class registered that implements interface
SOAPMidas.IAppServerSOAP of (soap action/path)
"http://www.borland.com/namespaces/Types-IAppServerSOAP"
</faultstring>
</soap-env:fault>
</soap-env:body>
</soap-env:envelope>
...
if IntfInfo = nil then
raise Exception.CreateFmt(SInvInterfaceNotReg, [SoapAction])
else if InvClassType = nil then
RaiseNoIntfException(SoapAction)
...
IAppServerSOAP = interface(IInvokable)
['{C99F4735-D6D2-495C-8CA2-E53E5A439E61}']
function SAS_ApplyUpdates(...): OleVariant; stdcall;
function SAS_GetRecords(...): OleVariant; stdcall;
function SAS_DataRequest(...): OleVariant; stdcall;
function SAS_GetProviderNames: TWideStringDynArray; stdcall;
function SAS_GetParams(...): OleVariant; stdcall;
function SAS_RowRequest(...): OleVariant; stdcall;
procedure SAS_Execute(...); stdcall;
end;
{ IAppServerSOAP }
function SAS_ApplyUpdates(...): OleVariant; virtual; stdcall;
function SAS_GetRecords(...): OleVariant; virtual; stdcall;
function SAS_DataRequest(...): OleVariant; virtual; stdcall;
function SAS_GetProviderNames: TWideStringDynArray; virtual; stdcall;
function SAS_GetParams(...): OleVariant; virtual; stdcall;
function SAS_RowRequest(...): OleVariant; virtual; stdcall;
procedure SAS_Execute(...); virtual; stdcall;
procedure TSoapDemo3DMCreateInstance(out obj: TObject);
begin
obj := TSoapDemo3DM.Create(nil);
end;
initialization
InvRegistry.RegisterInvokableClass(TSoapDemo3DM, TSoapDemo3DMCreateInstance);
ISoapDemo3DM = interface(IAppServer)
['{4F618288-9F81-4090-81EF-4ACE0BF6D0BE}']
end;
TSoapDemo3DM = class(TSoapDataModule, ISoapDemo3DM, IAppServer)
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Delphi 목마 자기 복제법 구현목마가 자기 복사를 실현하는 원리는 프로그램이 실행될 때 먼저 자신이 특정 디렉터리에 있는지 확인하고 그렇지 않으면 계속 실행하며 그렇지 않으면 특정 디렉터리에 복사한 다음에 새로운 프로그램을 실행하고 낡은 프로그램...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
