Recent

Author Topic: WST Problem with wst_CreateInstance_ServicePortType  (Read 2319 times)

FOV_2001

  • New Member
  • *
  • Posts: 21
WST Problem with wst_CreateInstance_ServicePortType
« on: January 30, 2020, 08:25:53 pm »
Hi Guys, nice to be here again

this time having a problem with a Web Services implementation
Scenario: Win 32 till now.
Lazarus 2.0.6
I have already the web service tester (my application) running on Delhpi, working OK
Now I want to move to Lazarus.
I have the wsdl file. Imported with no problems
The hole project compile perfectly, BUT when I run the program and reach:

Code: Pascal  [Select][+][-]
  1.   FPC_RegisterHTTP_Transport();
  2.   Dire := 'http://192.168.1.133:8443/DirectorioServicio;
  3.  CCDataTest := wst_CreateInstance_ServicePortType('SOAP', 'HTTP:',Dire);
  4.  

The result is a nil pointer and the application simply, Close.

I do not know what other comment to do in order to give you an idea of what its happening.

any help & or Comment will be appreciated,

Thanks in advance


« Last Edit: February 03, 2020, 06:02:09 pm by FOV_2001 »

FOV_2001

  • New Member
  • *
  • Posts: 21
Re: WST Problem with wst_CreateInstance_ServicePortType
« Reply #1 on: February 03, 2020, 06:11:02 pm »
Whell, after modify the  message in  accordance to the rules of the fórum, and got more Info, I hope to be more lucky.

Now the program was modifiyed to

Code: Pascal  [Select][+][-]
  1.   try
  2.     CCDataTest := wst_CreateInstance_ServicePortType('SOAP', 'HTTP:',Dire);
  3.   except
  4.      on E: exception do
  5.        begin
  6.          With Mod_Auxiliar do
  7.            begin
  8.              if (Activar_Logs and (Log_Level >= L_Info)) then
  9.                begin
  10.                  Registro_Log(Archivo_Logs,Prefix,'#################################');
  11.                  Registro_Log(Archivo_Logs,Prefix,E.Message);
  12.                  Registro_Log(Archivo_Logs,Prefix,'#################################');
  13.                end;
  14.              exit;
  15.            end;
  16.        end;
  17.   end;
  18.  
  19.  

And the result of the error is:

E.Message = Type procedure (ANSISTRING, POINTER) is not a structure or union type.

As all of you can see, I'm a Little bit lost.

Sombody can give  me a simple comment?

Apreciated in Advance

 

TinyPortal © 2005-2018