Ver Mensaje Individual
  #11  
Antiguo 30-10-2020
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Reputación: 20
oscarac Va por buen camino
Interesante, pero lo que aun lo logro invocar o deducir es como invocar a la funcion verFoto ??

verfoto ([_res._foto]) ?????

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var _res : ResponseReniec2;
_razon, _dir :string;
begin
  _res := GetIConsultaRUCDNI.GetBuscaDNI(Edit1.Text);
  _RAZON := Format('%s', [_res._primerApellido + ' ' + _res._segundoApellido + ' ' + _res._nombres]);
  _DIR := Format('%s', [_res._direccion]);
  StaticText1.Caption := _razon;
//  VerFoto ([_res._foto]);
end;

procedure TForm1.VerFoto(Foto: TArray< System.Byte >; Image: TImage);
  var
    AStringStream: TStringStream;
begin
  AStringStream := TStringStream.Create(StringOf(Foto));
  try
    AStringStream.Position := 0;
    Image1.Picture.Graphic.LoadFromStream(AStringStream);
  finally
    AStringStream.Free;
  end;
end;

la unidad JPEG esta incluida, estoy usando xe7


me aparecen este error
[dcc32 Error] Unit1.pas(42): E2010 Incompatible types: 'Byte' and 'System.TArray<System.Byte>'
__________________
Dulce Regalo que Satanas manda para mi.....

Última edición por oscarac fecha: 30-10-2020 a las 04:14:15.
Responder Con Cita