VPF::TRemotableStringList - Форум программистов

Rodman

Дата 9.1.2007, 10:50 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Дароф.. Снова про єтот класс...

Код


from Delphi manual:

Remotable object example
This example shows how to create a remotable object for a parameter on an invokable
interface where you would otherwise use an existing class. In this example, the
existing class is a string list (TStringList). To keep the example small, it does not
reproduce the Objects property of the string list.

Because the new class is not scalar, it descends from TRemotable rather than
TRemotableXS. It includes a published property for every property of the string list
you want to communicate between the client and server. Each of these remotable
properties corresponds to a remotable type. In addition, the new remotable class
includes methods to convert to and from a string list.
TRemotableStringList = class(TRemotable)
private
FCaseSensitive: Boolean;
FSorted: Boolean;
FDuplicates: TDuplicates;
FStrings: TStringDynArray;
public
procedure Assign(SourceList: TStringList);
procedure AssignTo(DestList: TStringList);
published
property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive;
property Sorted: Boolean read FSorted write FSorted;
property Duplicates: TDuplicates read FDuplicates write FDuplicates;
property Strings: TStringDynArray read FStrings write FStrings;
end;
Note that TRemotableStringList exists only as a transport class. Thus, although it has a
Sorted property (to transport the value of a string list’s Sorted property), it does not
need to sort the strings it stores, it only needs to record whether the strings should be
sorted. This keeps the implementation very simple. You only need to implement the
Assign and AssignTo methods, which convert to and from a string list:
procedure TRemotableStringList.Assign(SourceList: TStrings);
var I: Integer;
begin
SetLength(Strings, SourceList.Count);
for I := 0 to SourceList.Count - 1 do
Strings[I] := SourceList[I];
CaseSensitive := SourceList.CaseSensitive;
Sorted := SourceList.Sorted;
Duplicates := SourceList.Duplicates;
end;
procedure TRemotableStringList.AssignTo(DestList: TStrings);
var I: Integer;
begin
DestList.Clear;
DestList.Capacity := Length(Strings);
DestList.CaseSensitive := CaseSensitive;
DestList.Sorted := Sorted;
DestList.Duplicates := Duplicates;
for I := 0 to Length(Strings) - 1 do
DestList.Add(Strings[I]);
end;

Optionally, you may want to register the new remotable class so that you can specify
its class name. If you do not register the class, it is registered automatically when you
register the interface that uses it. Similarly, if you register the class but not the
TDuplicates and TStringDynArray types that it uses, they are registered automatically.
This code shows how to register the TRemotableStringList class and the TDuplicates
type. TStringDynArray is registered automatically because it is one of the built-in
dynamic array types declared in the Types unit.
This registration code goes in the initialization section of the unit where you define
the remotable class:
RemClassRegistry.RegisterXSInfo(TypeInfo(TDuplicates), MyNameSpace, 'duplicateFlag');
RemClassRegistry.RegisterXSClass(TRemotableStringList, MyNameSpace, 'stringList', '',False);

и вот то что я навоял...

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InvokeRegistry, Types, StdCtrls;

type
TRemotableStringList = class(TRemotable)
  private
    FCaseSensitive: Boolean;
    FSorted: Boolean;
    FDuplicates: TDuplicates;
    FStrings: TStringDynArray;
  public
    procedure Assign(SourceList: TStringList);
    procedure AssignTo(DestList: TStringList);
  published
    property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive;
    property Sorted: Boolean read FSorted write FSorted;

    property Duplicates: TDuplicates read FDuplicates write FDuplicates;
    property Strings: TStringDynArray read FStrings write FStrings;
end;


  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TRemotableStringList.Assign(SourceList: TStringList);//заменил TStrings на TStringList
var I: Integer;
begin
  SetLength(Strings, SourceList.Count);//ругается в этой строке
  for I := 0 to SourceList.Count - 1 do
    Strings[I] := SourceList[I];
  CaseSensitive := SourceList.CaseSensitive;
  Sorted := SourceList.Sorted;
  Duplicates := SourceList.Duplicates;
end;
procedure TRemotableStringList.AssignTo(DestList: TStringList);//заменил TStrings на TStringList
var I: Integer;
begin
  DestList.Clear;
  DestList.Capacity := Length(Strings);
  DestList.CaseSensitive := CaseSensitive;
  DestList.Sorted := Sorted;
  DestList.Duplicates := Duplicates;
  for I := 0 to Length(Strings) - 1 do
    DestList.Add(Strings[I]);
end;

initialization

  RemClassRegistry.RegisterXSInfo(TypeInfo(TDuplicates), MyNameSpace, 'duplicateFlag');
  RemClassRegistry.RegisterXSClass(TRemotableStringList, MyNameSpace, 'stringList', '',False);

end.

также ругается на MyNameSpace как на неопределенны???

Почему в хелпе разные типы данных??? Я так думаю опчипятка, но какой ищ низ правильный???

Места ошибок также в исходнике...

Как мне это исправить.

Спасибо...

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Rennigth

Дата 9.1.2007, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Rodman @ 9.1.2007, 10:50

)

также ругается на MyNameSpace как на неопределенны???

Код


  RemClassRegistry.RegisterXSInfo(TypeInfo(TDuplicates), '', 'Duplicates');
  RemClassRegistry.RegisterXSClass(TRemotableStringList, '', 'RemotableStringList', '',False);

А Вообще Можно и так:

Код


  RemClassRegistry.RegisterXSInfo(TypeInfo(TDuplicates));
  RemClassRegistry.RegisterXSClass(TRemotableStringList);

--------------------

(* Honesta mors turpi vita potior *)

Rodman

Дата 9.1.2007, 14:44 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

а вот с типами данных как быть???

Код


//описание класса
procedure Assign(SourceList: TStringList);
procedure AssignTo(DestList: TStringList);
...

//описание процедур из хелпа
procedure TRemotableStringList.Assign(SourceList: TStrings);
...
procedure TRemotableStringList.AssignTo(DestList: TStrings);
...

не соответствие типов... Как правильно???

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Rennigth

Дата 9.1.2007, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Rodman @ 9.1.2007, 14:44

)

не соответствие типов... Как правильно???

Да привести к к одному надо, в принципе все равно к какому но както принято передавать TStrings.

--------------------

(* Honesta mors turpi vita potior *)

Rodman

Дата 9.1.2007, 15:06 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Rennigth, в том то и суть была, чтоб передавать TStringList... я везде его поставил, но вылетаешь errorина...

Мож мой код попробовать запустить?!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Rennigth

Дата 9.1.2007, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Rodman @ 9.1.2007, 15:06

)

Мож мой код попробовать запустить?!

Вечером, здесь на работе D6, там такой штуки нету, дома BDS2006, наверника есть.

--------------------

(* Honesta mors turpi vita potior *)

Rennigth

Дата 19.3.2007, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InvokeRegistry, Types;

type
  TRemotableStringList = class(TRemotable)
  private
    FCaseSensitive: Boolean;
    FSorted: Boolean;
    FDuplicates: TDuplicates;
    FStrings: TStringDynArray;
  public
    procedure Assign(SourceList: TStringList);
    procedure AssignTo(DestList: TStringList);
  published
    property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive;
    property Sorted: Boolean read FSorted write FSorted;

    property Duplicates: TDuplicates read FDuplicates write FDuplicates;
    property Strings: TStringDynArray read FStrings write FStrings;
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TRemotableStringList }

procedure TRemotableStringList.Assign(SourceList: TStringList);
var
  i: Integer;
begin
  SetLength(FStrings, SourceList.Count);
  for I := 0 to SourceList.Count - 1 do
    FStrings[I] := SourceList[I];
  CaseSensitive := SourceList.CaseSensitive;
  Sorted := SourceList.Sorted;
  Duplicates := SourceList.Duplicates;
end;

procedure TRemotableStringList.AssignTo(DestList: TStringList);
var
  i: Integer;
begin
  DestList.Clear;
  DestList.Capacity := Length(FStrings);
  DestList.CaseSensitive := CaseSensitive;
  DestList.Sorted := Sorted;
  DestList.Duplicates := Duplicates;
  for I := 0 to Length(FStrings) - 1 do
    DestList.Add(FStrings[I]);
end;

initialization
  RemClassRegistry.RegisterXSInfo(TypeInfo(TDuplicates), '', 'duplicateFlag');
  RemClassRegistry.RegisterXSClass(TRemotableStringList, '', 'stringList', '', False);

finalization
  RemClassRegistry.UnRegisterXSClass(TRemotableStringList);
  RemClassRegistry.UnRegisterXSClass(TypeInfo(TDuplicates));

end.

Непомню нормально ли маршалятся динамические массивы, но должно в принципе пахать раз пишут в мануале, но не проверял(лень сервак сейчас ваять).

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »