помогите с SOAP

Определяю запись в SOAP сервере

   PPosition = ^TPosition;
  TDirection = (drLeftUp, drRightUp, drLeftDown, drRightDown);
  TDirectionTable = array [TDirection, 0..31] of Integer;

    TPosition = record
      mField: array[0..31] of ShortInt;
      mMoveStr: array[0..11] of ShortInt;
      mActive: Integer;
      mTakeChar: Char;
      mMoveCount: Integer;
   end;

Выдает ошибку при компиляции

[Error] myChIntf.pas(37): Type 'TPosition' has no type info

Rezolut

Определяю запись в SOAP сервере PPosition = ^TPosition; TDirection = (drLeftUp, drRightUp, drLeftDown, drRightDown); TDirectionTable = array [TDirection, 0..31] of Integer; TPosition = record mField: array[0..31] of ShortInt; mMoveStr: array[0..11] of ShortInt; mActive: Integer; mTakeChar: Char; mMoveCount: Integer; end; Выдает ошибку при компиляции [Error] myChIntf.pas(37): Type 'TPosition' has no type info

А что в строке 37?

В приведенном коде вроде все нормально.

OracleLover,

end;

Rezolut

OracleLover, end;

Вы думаете ему действительно было интересно, что в 37 строке? :)

ЗЫ См. мой первый пост.

FlyD,

Чтобы не было лишних вопросов полный текст

{ Invokable interface ImyCh }

unit myChIntf;

interface


uses InvokeRegistry, Types, XSBuiltIns;

type

  PPosition = ^TPosition;
  TDirection = (drLeftUp, drRightUp, drLeftDown, drRightDown);
  TDirectionTable = array [TDirection, 0..31] of Integer;

    TPosition = record
      mField: array[0..31] of ShortInt;
      mMoveStr: array[0..11] of ShortInt;
      mActive: Integer;
      mTakeChar: Char;
      mMoveCount: Integer;
   end;
  { Invokable interfaces must derive from IInvokable }
  ImyCh = interface(IInvokable)
  ['{E502462A-38CD-46DD-8DD3-BA740D23796D}']


  function GetMovesWhite(N: Integer; var Board: TPosition): Integer;stdcall;
  function GetMovesBlack(N: Integer; var Board: TPosition): Integer;stdcall;
  function RecurseMamTakeWhite(var N: Integer; Cell : Integer; Direction: TDirection; var Board: TPosition): Integer;stdcall;
  function RecurseSingleTakeWhite(var N: Integer; Cell : Integer; Direction: TDirection; var Board: TPosition): Integer;stdcall;
  function RecurseSingleTakeBlack(var N: Integer; Cell : Integer; Direction: TDirection; var Board: TPosition): Integer;stdcall;
  function RecurseMamTakeBlack(var N: Integer; Cell : Integer; Direction: TDirection; var Board: TPosition): Integer;stdcall;
    { Methods of Invokable interface must not use the default }

    { calling convention; stdcall is recommended }
end;

implementation


initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(ImyCh));
end.

Rezolut,
и где вы такие задачи берёте?
Армию ботов строите?

автор

void miniMax(move lastmove, move *movestart, int *valstart, char board[][8], bool turn, int plevel, int depth, int aval, int bval, char player, move *pbestmove, int *pvalue, time_t timelimit, U64 hashkey, U64 repetitionstack[], int extensionlevel, evaldata *scores, LINE * pline, char input_buffer[], bool pondering) Подскажите какую технология использовать. Есть некая функция (код выше). Есть сервер который должен вызвать эту функцию на клиенте, причем загрузив один клиент задачей, сервер должен вызвать эту функцию у другого клиента т.е. (клиенты должны работать одновременно).При этом клиенты могут располагаться на разных компах в сети. Потом собрать результаты и проанализировать.

Petro123,


Все тебе нада знать, ты лучше бы подсказал в чем проблема. А потом я тебе объяснил бы на пальцах, где я такие задачи беру....

Rezolut,
Delphi не заточен под распределённые приложения.
Возми готовое xml-rpc
http://sourceforge.net/projects/delphixml-rpc/

Rezolut

Определяю запись в SOAP сервере PPosition = ^TPosition; TDirection = (drLeftUp, drRightUp, drLeftDown, drRightDown); TDirectionTable = array [TDirection, 0..31] of Integer; TPosition = record mField: array[0..31] of ShortInt; mMoveStr: array[0..11] of ShortInt; mActive: Integer; mTakeChar: Char; mMoveCount: Integer; end; Выдает ошибку при компиляции [Error] myChIntf.pas(37): Type 'TPosition' has no type info

Переместите первую строчку в конец