Pegar valores de um ponteiro

Question

Estou tentando fazer um componente antigo funcionar no delphi 7, e para isso preciso de uma ajuda:O componenente tem uma func�o assim:function XPTO( Buffer: Pointer): Boolean;Eu preciso testar o conte...

Marcelo Saviski · Answer

vc pode fazer um TypeCast para o ponteiro do tipo desejado antes, como:

if Buffer <> nil then
  res := PInteger(Buffer)^;

se fosse outro tipo, talvez um tipo personalizado, 1� vc teria que definir o tipo do ponteiro

type
  PMeuTipo = ^TMeuTipo;

Nildo · Answer

� que voc� est� usando o resultado como Integer, e tem que ser Boolean, de acordo com a declara��o...

Ronaldo · Answer

[quote:75f58807a3=�nildo�]� que voc� est� usando o resultado como Integer, e tem que ser Boolean, de acordo com a declara��o[/quote:75f58807a3]res � uma vari�vel que ainda vou trabalhar. N�o � meu result....

Nildo · Answer

[quote:4e0b221378=�Ronaldo�][quote:4e0b221378=�nildo�]� que voc� est� usando o resultado como Integer, e tem que ser Boolean, de acordo com a declara��o[/quote:4e0b221378]res � uma vari�vel que ainda vou trabalhar. N�o � meu result.[/quote:4e0b221378]A ta.. Nesse caso a dica do Marcelo resolve seu problema...

Ronaldo · Answer

[quote:19fb69806f=�Marcelo Saviski�]vc pode fazer um TypeCast para o ponteiro do tipo desejado antes, como:

if Buffer <> nil then
  res := PInteger(Buffer)^;

se fosse outro tipo, talvez um tipo personalizado, 1� vc teria que definir o tipo do ponteiro

type
  PMeuTipo = ^TMeuTipo;

[/quote:19fb69806f]

Pois �, � que tenho uma outra agravante: Buffer n�o � somente integer. Hora pode ser string, hora date, etc.

E ele vem internamente e n�o d� para eu alterar. Eu s� posso testar o seu valor e dizer se aceito ou n�o.

Nildo · Answer

Voc� quer saber se o Buffer est� preenchido com qualquer tipo de informa��o?...

Ronaldo · Answer

[quote:3adcc032e1=�nildo�]Voc� quer saber se o Buffer est� preenchido com qualquer tipo de informa��o?[/quote:3adcc032e1]Exatamente... HEHE!!Para ser mais claro, � o seguinte: Buffer � o valor de um TField, e eu preciso saber se ele possui um valor ou se est� vazio (null)....

Nildo · Answer

Voc� pode verificar se o Ponteiro <> nilPode tentar tamb�m:if IsValidPointer( Ponteiro, 4 ) then...

Ronaldo · Answer

[quote:547836fa3e=�nildo�]Voc� pode verificar se o Ponteiro <> nil[/quote:547836fa3e]retorna apenas se o ponteiro est� instanciado. No meu caso sempre ser� true e n�o me serve.[quote:547836fa3e]Pode tentar tamb�m:if IsValidPointer( Ponteiro, 4 ) then[/quote:547836fa3e]Eu n�o encontrei essa func��o no delphi 7 e nem no help. Em qual unit ela fica?valeu....

Nildo · Answer

Bom dexa queto, ele nao ia funcionar mesmo j� que ela ja esta inicializada. Voc� pode verificar se o conte�do dele n�o � ZERO...

if PByte( Ponteiro )^ <> 0 then
   Tem Alguma Coisa Preenchida

Blz,

Funcionou. S� tive que trocar o �0� pelo �null�.

Valeu.

Marco Salles · Answer

o bom de quando o nildo responde e que ele sempre esta ai... A d�vida e quase sempre respondida On_line.. N�o tem que esperar N�o :P  :P  :P :P  :P  :P...

Nildo · Answer

Ronaldo, mais uma coisa.. Se o Buffer puder ser preenchido com #0 ( $00 ), voc� nunca vai poder verificar se est� vazio, porque o Buffer quando � alocado, ele inicializa com 0 em todos os bytes do buffer. Logo, se � um ponteiro v�lido, seu conte�do vai ser 0 at� voc� preencher ele com alguma coisa.

Um abra�o :wink:

Ronaldo · Answer

[quote:4355ce6151=�nildo�]Bom dexa queto, ele nao ia funcionar mesmo j� que ela ja esta inicializada.Voc� pode verificar se o conte�do dele n�o � ZERO...[code:1:4355ce6151]if PByte( Ponteiro )^ <> 0 then   Tem Alguma Coisa Preenchida[/code:1:4355ce6151][/quote:4355ce6151]Blz,Funcionou. S� tive que trocar o �0� pelo �null�.Valeu....

Nildo · Answer

[quote:19ba11fddb=�Ronaldo�]Funcionou. S� tive que trocar o �0� pelo �null�.Valeu.[/quote:19ba11fddb]Boa  :D...

F�rum Pegar valores de um ponteiro #273338