Использование TClientDataSet

Автор podshibyakinea, 28.03.18, 17:22:38

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

podshibyakinea

Вылетает с ошибкой при использовании. Не могу понять что не так.  Во вложении скрин.

procedure TSignObjectsDialog.Button12Click(Sender: TObject);
[size=1]var
  stTypeName: string;
  stProductName: string;
  stVersionNumber: string;
  stIdVersion: string;

  retcode: integer;
  errmessage: string;
  DataSet: IDataSet;
  ClientDataSet: TClientDataSet;
begin

  stTypeName := PluginCall.stType;
  stProductName := PluginCall.stProduct;
  stVersionNumber := PluginCall.stVersion;
  stIdVersion := '530440';

  ClientDataSet := TClientDataSet.Create(nil);
  try
   ClientDataSet.Data :=
FPluginCall.RunMethod('GetInfoAboutVersion',VarArrayOf([stTypeName,stProductName,stVersionNumber, stIdVersion,15]));
  finally
    ClientDataSet.Free;
  end;[/size]

end;

Chaa

Нажмите Break, отладчик покажет где ошибка.
Возможно из-за того, что у вас в одном месте PluginCall, в другом FPluginCall и они разные.