Databases
StackOverflow2013
Postsdbo
PODelphi 7: Access violation - TByteDynArray problem
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PODelphi 7: Access violation - TByteDynArray problem
    primarykey
    data
    text
    <p>I am fairly new to Delphi &amp; have to code a SOAP client. Importing the WSDL generates this code (which I obviously can't change as I obviously have to comply with the server side) </p> <pre><code> 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; </code></pre> <p>Can anyone code me an example with dummy values that will call sendMessage() and not cause an access violation? I really don't know how to handle TByteDynArray</p> <hr> <p>[Edit] as requested, here's my code, BUT - disclaimer - I had to hack it about a lot (reduce it) before posting, so it may not compile. Both parms to sendMessage() are non-null </p> <pre><code> 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); </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USMawg
    1. USMawg
    plurals
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. PODelphi 7: Access violation - TByteDynArray problem
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PODelphi 7: Access violation - TByteDynArray problem
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. PODelphi 7: Access violation - TByteDynArray problem
      1. USJeroen Wiert Pluimers
      1. VTFavorite
    1. COThis is just an interface. What are you doing that causes an access violation?
      singulars
      1. PODelphi 7: Access violation - TByteDynArray problem
      1. USMason Wheeler
    2. CO+1 for a good question. There are two ways to solve this - show you my code & figure why it doesn't work, or someone posts some code that does work & I can compare it wit my own. Ok, I will post my code, but the important thing (I think) is that both params are non-null at the call
      singulars
      1. PODelphi 7: Access violation - TByteDynArray problem
      1. USMawg
    3. COYou really are snatching defeat from the jaws of victory because you used TByteDynArray instead of just TBytes (which is really just a string).
      singulars
      1. PODelphi 7: Access violation - TByteDynArray problem
      1. USWarren P
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload