AV while enqueuing with 10G (4.0.6.2)

[ldsandon]

I am getting AVs in this code:

procedure TdmIkonSystem.Enqueue(const AMessage:
  string; AProcessID, AProjectID: Int64; const
  ASender: string; APriority: Integer);
begin
  {$IFDEF RAW_PAYLOAD}
  Enqueuer.RawPayload := AMessage;
  {$ELSE}
  with Enqueuer.Payload do
  begin
    SetAttr('PROCESS_ID', AProcessID);
    SetAttr('PROJECT_ID', AProjectID);
    SetAttr('ENGINE_MESSAGE', AMessage);
  end;
  {$ENDIF}
  Enqueuer.MessageProperties.Priority :=
    APriority;
  Enqueuer.MessageProperties.SenderId.Name :=
    ASender;

  Enqueuer.Enqueue;
end;

It happens only with 10g and if ASender is a "numeric" value, I mean, made up only by digits (0-9). It looks that Oracle 10g sends an error message to say it's not a valid name (9i doesn't), but then DOA crashes with an AV.

 

[Marco Kalter]

Can you send me a complete example by e-mail?

 

[ldsandon]

I will try to build a test case as soon as I can. The code is within a complex service that relies on many other things, a bit difficult to send "as is".