|
Perdon, es que no he puesto demasiados mensanes. De echo, el codigo es el que me diste tu en otro post.
procedure CargaImagen(p: pointer; Tamanyo: Integer; AImage: TImage)
var
Str: TMemoryStream;
begin
Str := TMemoryStream.Create;
try
Str.Write(p, Tamanyo);
AImage.Picture.Bitmap.LoadFromStream(Str);
finally
Str.Free;
end;
end; Tanto el tamaño como el puntero los saco de funciones asociadas a la dll de la tarjeta grafica con la que estoy trabajando, una inspecta de mikroton.
Salu2 y muchas gracias.
Toni
|