no funciono
Publicado por MSP (6 intervenciones) el 24/04/2007 18:01:30
hola mira estuve probando y ahora me pasa lo siguiente:
con imagenes *.bmp si carga la imagen en el campo pero al tratar de guardar (ZQuery.post) me manda el siguiente error.
SQL Error: Got a packet bigger than 'max_allowed_packet' bytes
y con imagenes jpg al liberar el blob (Blob.Free) me manda el siguiente error.
Bitmap image is not valid
les pongo el codigo
QInveI.Insert;
QInveIClv_art.Value := QInveclv_art.Value;
OpenDialog1.Execute;
If FileExists(Opendialog1.FileName) then
Foto := Opendialog1.FileName;
Blob := QInveI.CreateBlobStream(QInveIIMAGEN,bmWrite);
Try
Blob.Seek(0,soFromBeginning);
fs := TFileStream.Create(Foto, fmOpenRead or fmShareDenyWrite);
Try
Blob.CopyFrom(Fs, fs.Size);
Finally
fs.Free
end;
Finally
Blob.Free
end;
alguna recomendacion ¿estoy haciendo algo mal?
con imagenes *.bmp si carga la imagen en el campo pero al tratar de guardar (ZQuery.post) me manda el siguiente error.
SQL Error: Got a packet bigger than 'max_allowed_packet' bytes
y con imagenes jpg al liberar el blob (Blob.Free) me manda el siguiente error.
Bitmap image is not valid
les pongo el codigo
QInveI.Insert;
QInveIClv_art.Value := QInveclv_art.Value;
OpenDialog1.Execute;
If FileExists(Opendialog1.FileName) then
Foto := Opendialog1.FileName;
Blob := QInveI.CreateBlobStream(QInveIIMAGEN,bmWrite);
Try
Blob.Seek(0,soFromBeginning);
fs := TFileStream.Create(Foto, fmOpenRead or fmShareDenyWrite);
Try
Blob.CopyFrom(Fs, fs.Size);
Finally
fs.Free
end;
Finally
Blob.Free
end;
alguna recomendacion ¿estoy haciendo algo mal?
Valora esta pregunta


0