mas problemas con jpg
Publicado por vla (7 intervenciones) el 02/05/2008 21:08:58
alguieb tiene idea de porque este codigo
var
temp: TJpegImage;
blob: TMemoryStream;
begin
if (button=nbFirst) or (button= nbPrior) or (button= nbNext) or (button =nbLast) then begin
temp:= TJPegImage.Create;
blob:= TMemoryStream.Create;
tblobfield(Modulo.TChoferes.FieldByName('FotoP')).SaveToStream(blob);
if blob.Size>0 then begin
temp.LoadFromStream(blob);
image1.Picture.Assign(temp);
end else
image1.picture.Assign(nil);
end;
al ejecutarlo me da el mensaje "JPEG erron #42"
gracias
var
temp: TJpegImage;
blob: TMemoryStream;
begin
if (button=nbFirst) or (button= nbPrior) or (button= nbNext) or (button =nbLast) then begin
temp:= TJPegImage.Create;
blob:= TMemoryStream.Create;
tblobfield(Modulo.TChoferes.FieldByName('FotoP')).SaveToStream(blob);
if blob.Size>0 then begin
temp.LoadFromStream(blob);
image1.Picture.Assign(temp);
end else
image1.picture.Assign(nil);
end;
al ejecutarlo me da el mensaje "JPEG erron #42"
gracias
Valora esta pregunta
0