Reset PChar Variable

Question

I don’t know much that delphi won 32 programming, but I hope someone can answer my question.

I get a duplicate of l_sGetUniqueIdBuffer which is stored in the database that I want to avoid.

l_sGetUniqueIdBuffer is actually different (l_sAuthorisationContent value is xml, and I see another value generated by getUniqueId call) between the lines. This problem is intermittent (duplicates are rare ...) There is only a millisecond difference between the date of update between rows.

Given:

(disabled trip code)

var
    l_sGetUniqueIdBuffer: PChar;
    FOutputBufferSize : integer;

begin
    FOutputBufferSize := 1024;
    ...
    while( not   dmAccomClaim.ADOQuClaimIdentification.Eof ) do
    begin

        // Get a unique id for the request
        l_sGetUniqueIdBuffer := AllocMem (FOutputBufferSize);

        l_returnCode := getUniqueId (m_APISessionId^, l_sGetUniqueIdBuffer, FOutputBufferSize);

        dmAccomClaim.ADOQuAddContent.Active := False;
        dmAccomClaim.ADOQuAddContent.Parameters.ParamByName('pContent').Value := (WideString(l_sAuthorisationContent));
        dmAccomClaim.ADOQuAddContent.Parameters.ParamByName('pClaimId').Value := dmAccomClaim.ADOQuClaimIdentification.FieldByName('SB_CLAIM_ID').AsString;
        dmAccomClaim.ADOQuAddContent.Parameters.ParamByName('pUniqueId').Value := string(l_sGetUniqueIdBuffer);
        dmAccomClaim.ADOQuAddContent.ExecSQL;

        FreeMem( l_sAuthorisationContent, l_iAuthoriseContentSize );

        FreeMem( l_sGetUniqueIdBuffer, FOutputBufferSize );
    end;
end;

I think I need to know if the value in l_sGetUniqueIdBuffer reset for each row?

Answer 1

AllocMem

function AllocMem(Size: Cardinal): Pointer;
begin
  GetMem(Result, Size);
  FillChar(Result^, Size, 0);
end;

, , l_sGetUniqueBuffer, reset .

var
    l_sGetUniqueIdBuffer: PChar;
    FOutputBufferSize : integer;
    list: TStringList;
begin
    FOutputBufferSize := 1024;
    ...

    list := TStringList.Create;
    try
      list.Sorted := True;
      while( not   dmAccomClaim.ADOQuClaimIdentification.Eof ) do
      begin

          // Get a unique id for the request
          l_sGetUniqueIdBuffer := AllocMem (FOutputBufferSize);

          l_returnCode := getUniqueId (m_APISessionId^, l_sGetUniqueIdBuffer, FOutputBufferSize);

          dmAccomClaim.ADOQuAddContent.Active := False;
          dmAccomClaim.ADOQuAddContent.Parameters.ParamByName('pContent').Value := (WideString(l_sAuthorisationContent));
          dmAccomClaim.ADOQuAddContent.Parameters.ParamByName('pClaimId').Value := dmAccomClaim.ADOQuClaimIdentification.FieldByName('SB_CLAIM_ID').AsString;
          dmAccomClaim.ADOQuAddContent.Parameters.ParamByName('pUniqueId').Value := string(l_sGetUniqueIdBuffer);

          if list.IndexOf(l_sGetUniqueIdBuffer) <> - 1 then
            write; //***** Place a breakpoint here.
          list.Add(l_sGetUniqueIdBuffer);

          dmAccomClaim.ADOQuAddContent.ExecSQL;

          FreeMem( l_sAuthorisationContent, l_iAuthoriseContentSize );

          FreeMem( l_sGetUniqueIdBuffer, FOutputBufferSize );
      end;
    finally
      list.Free;
    end;
end;