Donde puedo conseguir GDI+ ?, por mas que lo busco no lo encuentro...
me puedes facilitar un enlace o enviarmelo??, que ando un poco apurado...
Gracias
PD:
menos mal que me respondiste por que estaba intentando esto de aqui abajo y me decia que el tif tenia compresion y no dejaba abrirlo, por que GraphicEx no permite tif con compresion....
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, FileCtrl, StdCtrls, ComCtrls, ToolWin, Menus, DBCtrls, Db,
ImgList, GraphicEx, pvtables, btvtables;
type
TForm1 = class(TForm)
Button1: TButton;
imgImagen: TImage;
DataSource1: TDataSource;
PvTable1: TPvTable;
PvTable1IMAGEN: TBlobField;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
Tif : TTIFFGraphic;
Corriente : TMemoryStream;
Buffer : Word;
ImagenValida : Boolean;
begin
pvtable1.open;
ImagenValida := True;
imgImagen.Picture.Graphic := Nil;
If pvtable1IMAGEN.BlobSize > 0 Then
Begin
Corriente := TMemoryStream.Create;
Try
pvtable1IMAGEN.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
If Corriente.Read(Buffer, 2) > 0 Then
Begin
Corriente.Seek(0,soFromBeginning);
If (Buffer = $2020) Or (Buffer = $3A44) Or (Buffer = $4956) Then
Begin
imgImagen.Visible := False;
End
Else
Begin
imgImagen.Visible := True;
End;
Case Buffer Of
$4D42 : imgImagen.Picture.Bitmap.LoadFromStream(Corriente); $0000 : imgImagen.Picture.Icon.LoadFromStream(Corriente); $0001 : imgImagen.Picture.Metafile.LoadFromStream(Corriente); $CDD7 : imgImagen.Picture.Metafile.LoadFromStream(Corriente); $4949 : Begin
Tif := TTIFFGraphic.Create;
Tif.LoadFromStream(Corriente);
imgImagen.Picture.Assign(Tif);
Tif.Free;
End;
Begin
imgImagen.Picture.Graphic := Nil;
ImagenValida := False;
End;
End;
End;
Finally
Corriente.Free;
End;
End;
end;
end.