buenas tardes !
Mi pregunte es la siguiente ¿ como puedo camviar un valor de un puntero a entero ? , mi codigo es el siguiente
Código Delphi
[-]
procedure TfrmMain.BufferFinished(var Msg: TMessage);
var
hdr: PWaveHdr;
P: PByte;
begin
hdr:= PWaveHdr(Msg.LParam);
with hdr^ do
begin
P:= PByte(lpData);
gauge1.Progress :=(integer (p^));
Out32(StrToInt(txtpuertobucle.text), i)
end;
end.
espero que me aya explicado correctamente