Delphi 7：访问冲突 - TByteDynArray 问题

Question

我对 Delphi 还很陌生，必须编写一个 SOAP 客户端。导入 WSDL 会生成此代码（我显然无法更改，因为我显然必须遵守服务器端）

  DataPart            = class;             
  Message             = class;             
  eMessage            = class;             

  eventType = ( send, delete, etc );

  DataPart = class(TRemotable)
  private
    FhasData: Boolean;
    Fdata: TByteDynArray;
  published
    property hasData: Boolean read FhasData write FhasData;
    property data: TByteDynArray read Fdata write Fdata;
  end;
  Message = class(TRemotable)
  private
    FMessageID: Int64;
    Ftimestamp: TXSDateTime;
    Fevent: eventType;
    FmagicNumber: WideString;
    FDataPart: DataPart;
  published
    property MessageID: Int64 read FMessageID write FMessageID;
    property timestamp: TXSDateTime read Ftimestamp write Ftimestamp;
    property event: eventType read Fevent write Fevent;
    property magicNumber: WideString read FmagicNumber write FmagicNumber;
    property DataPart: DataPart read FDataPart write FDataPart;
  end;

  eMessage = class(TRemotable)
  private
    FencryptedMessage: TByteDynArray;
    Fdata: DataPart;
  published
    property encryptedMessage: TByteDynArray read FencryptedMessage write FencryptedMessage;
    property data: DataPart read Fdata write Fdata;
  end;

  MyApplicationPortType = interface(IInvokable)
  ['{99767D33-6B4A-7547-4DAC-0608095CAC70}']

    function  sendMessage(const encryptedMessage: TByteDynArray; const data: DataPart): WideString; stdcall;
  end;

谁能给我编写一个带有虚拟值的示例，该示例将调用 sendMessage() 并且不会导致访问冲突？我真的不知道如何处理 TByteDynArray

---

[编辑] 根据要求，这是我的代码，但是 - 免责声明 - 在发布之前我不得不对其进行大量修改（减少它），因此它可能无法编译。 sendMessage() 的两个参数都是非空的

  var theMessageArray: TByteDynArray;
      theResult : WideString;
      messageData : TByteDynArray;
      i : Integer;
begin
  theMessage.messageID := theMessage.messageID + 1;
  theMessage.timestamp := TXSDateTime.Create();
  theMessage.timestamp.AsDateTime := Now();
  theMessage.event := delete;
  theMessage.magicNumber  := 'magic # ' + IntToStr(theMessage.messageID);

  SetLength(messageData, 1);
  messageData[0] := 0;

  theMessage.dataPart.hasData := True;
  messageData := theMessage.dataPart.messageData;

  SetLength(messageData, $1000 * dataSize);

  for i := 0 to $1000 * dataSize - 1 do
        messageData[i] := i and $FF;

  theMessage.DataPart.messageData := messageData;

  theMessageArray := TByteDynArray(theMessage);
  theResult := (HTTPRIO1 as MyApplicationPortType).sendMessage(theMessageArray, theMessage.dataPart);

Answer 1

新想法：你在这个单元有范围检查吗？添加 {$R+}

如果你想使用动态数组类型，你必须在访问它之前在构造函数中明确设置它的长度，并且在复制/赋值时，你也必须非常小心。

不仅必须在访问每个 TByteDynArray 的元素之前调用 SetLength：

SetLength(Fdata, MyDesiredLengthWhichIsGreaterThanZero):

这里你也必须小心，我认为这会给你带来麻烦：

  property data: TByteDynArray read Fdata write Fdata;

您的自动生成器为您制作了该代码，如果您真的知道您想要一个动态数组，您显然可以将其发布。 （更新：最初我错了）。

正如 Rob 所指出的，TRemotable 不适用于索引属性，但适用于“字节数组”（TByteDynArray）属性，所以如果你做的一切正确，你不需要停止使用 TByteDynArray（我错了最初关于那个）。

如果是我从头开始编写，我会使用“字符串”类型，而不是像 TBytes。我想知道为什么它不使用 TBytes，但我知道您正在使用一些自动生成的 WSDL 生成器代码来实现 SOAP 客户端。因此，鉴于此，让您的代码不会崩溃应该是非常有可能的。

see also this Related question

我不知道如何编写 SOAP 客户端，但看起来您的代码做了一些不可靠的事情。看起来您需要修复动态数组处理，包括 Rob 向您指出的“呃，哦，你为什么要在这里进行投射”问题。但是，您似乎也不能随意更改类型，因为您似乎必须使用 TRemotable 机制已知并由其处理的类型。

至于您的要求，这应该可行：

  procedure TestMe( whatever:TWhatever );
  var 
    FData:TByteDynArray;
  begin
     SetLength(FData,2); 
     FData[0] := 10; 
     FData[1] := 20;
     sendMessage(FData, whatever);
  end;