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;
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>'