You've already forked lazarus-ccr
43 lines
719 B
ObjectPascal
43 lines
719 B
ObjectPascal
|
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.
|
||
|
|
|