App freezes consuming webservice with the WebService Toolkit
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
felipemdc · 2010-10-24 17:47

Hello,

I read the wiki, and I wrote a simple chess game which connects to the
Borland chess webservice. The full chess game can be downloaded here:

svn co https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-
ccr/applications/fpchess lazarus-ccr

And then I created the following routine to call the only function in
the webservice.

Note that accessing the webservice from a soap test web page works
correctly and it returns me the result which I expected.

My problem is that when I call this function the program just hangs!
Any idea what is wrong? I used the Lazarus WebService Toolkit package
to install a menu item which generated the pascal files for the
webservice comsuption. Here is the function:

unit IDelphiChess_Intf;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,
  IDelphiChessWSDL, IDelphiChess_proxy, chessgame, httpsend;

procedure GetNextMoveFromBorlandWS();

implementation

function ReadEntry(const APromp : string):string ;
begin
  Result := '';
  Write(APromp);
  while True do begin
    ReadLn(Result);
    Result := Trim(Result);
    if ( Length(Result) > 0 ) then
      Break;
  end;
end;

procedure GetNextMoveFromBorlandWS();
var
  locService : IDelphiChess;
  rsps : string;
begin
  Register_IDelphiChess_ServiceMetadata();
  //  SYNAPSE_RegisterHTTP_Transport();

  locService := wst_CreateInstance_IDelphiChess();

  rsps := locService.XML_GetNextMove(
    '', True, 5);
end;

end.

I am using Synapse, so I know it is blocking sockets, but I expect
that it should return something after some time, but it just stays
frozen forever.

----------------------------------------------------------------------
Phil · 2010-10-24 20:19

Does it make any difference if you use INDY_RegisterHTTP_Transport?

I've used WST / Indy with a variety of Web services and haven't seen
this. Normally if the Web service is unavailable (weekend maintenance,
maybe), then I get a server not available exception after a few
seconds.

Are you using the current WST from SVN?

Thanks.

-Phil

----------------------------------------------------------------------
xenblaise · 2010-10-26 06:11

hi
can we play that game? can you show as the link.
I'd like to play chess with lazarus app ONLY.

----------------------------------------------------------------------
ridsonxm · 2011-02-09 15:50

How I Faso to compile this project?

What compunentes that must be installed in Lazarus?

----------------------------------------------------------------------
xenblaise · 2011-02-12 16:04

Where the link that I could ran the chess app?