Ir al contenido


Foto

Error al declarar CreateBlobStream


  • Por favor identifícate para responder
2 respuestas en este tema

#1 sysmar

sysmar

    Member

  • Miembros
  • PipPip
  • 11 mensajes
  • LocationMéxico

Escrito 08 octubre 2009 - 01:40

En que USES esta la funcion CreateBlobStream.



delphi
  1. procedure TExporta.BitBtn1Click(Sender: TObject);
  2. var
  3.   BS: TStream;
  4.   Graphic : TGraphic;
  5.   BlobField : TBlobField;
  6. begin
  7.   PvTAlumnos.Open;
  8.     if not BlobField.IsNull then begin
  9.       BS := CreateBlobStream(BlobField,bmRead);  // Aqui me marca el error
  10.       Graphic := TJPEGImage.Create;
  11.       Graphic.LoadFromStream(BS);
  12.       Image1.Picture.Graphic := Graphic;
  13.       BS.Free;
  14.       ADOTable1.Open;
  15.     end;
  16.   PvTAlumnos.Close;
  17. end;
  18.  
  19. //  [DCC Error] UfrmExportar.pas(49): E2003 Undeclared identifier: 'CreateBlobStream'



Gracias por su ayuda
  • 0

#2 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 08 octubre 2009 - 01:48

ensaya cambiando la linea



delphi
  1. BS := CreateBlobStream(BlobField,bmRead);  // Aqui me marca el error     



por



delphi
  1. bs:= TBlobStream.Create(BlobField, bmRead);


  • 0

#3 Fenareth

Fenareth

    Advanced Member

  • Moderador
  • PipPipPip
  • 3.486 mensajes
  • LocationMexico City

Escrito 08 octubre 2009 - 01:48

Creo que hace falta hacerlo así:



delphi
  1. BS := AdoTable1.CreateBlobStream(BlobField,bmRead);



Saludox ! :D
  • 0