Ver Mensaje Individual
  #1  
Antiguo 29-01-2009
aojeda aojeda is offline
Registrado
 
Registrado: ene 2009
Posts: 2
Reputación: 0
aojeda Va por buen camino
Ayuda con insercion de imágenes en campo blob

Ayuda: Tengo el siguiente código para insertar una imágen en un campo blob de interbase:

procedure TForm1.Button1Click(Sender: TObject);
var
foto, pic : TStream;
begin
if OpenPictureDialog1.Execute then begin
IBDataset1.Edit;
pic := IBDataSet1.CreateBlobStream(IBDataSet1FOTO, bmWrite);
foto := TFileStream.Create(OpenPictureDialog1.FileName,fmOpenRead);
pic.CopyFrom(foto,foto.Size);
IBDataSet1.Post;
foto.Free;
pic.Free;
end;
end;

Lo he probado con delphi 2007 y está bien, sin embargo en .net no, alguin puede darme una sugerencia? Lo necesito para delphi .net
Responder Con Cita