F�rum Problemas com packet record e tamanho da string #411815

23/01/2012

Pessoal, eu estou com um problema assim: Minha aplica��o ela cria em Run Time um campo, que n�s chamamos de campos customiz�veis. Acontece que
tem uma valida��o no tamanho desse campo, e no momento est� em 31 caracteres(Char). Bem, exeiste uma fun��o do tipo TDSDataPacketFldDesc(
procedure AddFieldDesc(const FldName: string; FldType, Attributes: Integer);
var
FldDesc: TDSDataPacketFldDesc;)
Essa � a declara��o dessa var. Isto tudo est� na Unit Provider. Esse tipo(TDSDataPacketFldDesc) est� declarado na Unit DSIntf. Nessa Unit, esse tipo � um PACKED RECORD, que tem os seguintes campos:
TDSDataPacketFldDesc = packed record
szFieldName: MIDASNAME; { Column Name }
iFieldType: Integer; { Column Type }
iAttributes: Word; { Column attributes }
end;
Esse MIDASNAME est� declarado assim:
MIDASNAME = packed array [0..31] of Char; e eu mudei para MIDASNAME = packed array [0..60] of Char; Mas continua n�o funcionando. Tudo isso na uNIT DSIntf. Como eu fa�o para poder aceitar nomes com mais de 31 caracteres? Onde eu devo alterar?

Pjava

Curtir t�pico

+ 0

Responder

Posts

25/01/2012

Pjava

Fiz essa valida��o(fixei o tamanho = 60 ) e o erro foi: Field name n�o pode ser maior que 31 caracteres.

procedure AddFieldDesc(const FldName: string; FldType, Attributes: Integer);
  var
    FldDesc: TDSDataPacketFldDesc;
  begin
    if Length(FldName) >= 60 {SizeOf(FldDesc.szFieldName)} then // validei aqui nessa linha como podem ver
      raise EDSWriter.CreateFmt(SFieldNameTooLong,[SizeOf(FldDesc.szFieldName) - 1]);
    FillChar(FldDesc, SizeOf(FldDesc), 0);
    StrLCopy(FldDesc.szFieldName, PChar(FldName), SizeOf(FldDesc.szFieldName) - 1);
    FldDesc.iFieldType := FldType;
    FldDesc.iAttributes := Attributes;
    Check(FIDSWriter.AddColumnDesc(FldDesc));
  end;

Responder

Gostei + 0