saludos,
tengo que convertir bmp a jpg por codigo, he hecho un procedimiento para que lo haga estrayendo el id y buscarlo en la nueva tabla para ir insertando la imagen, de hecho la nueva tabla ya tiene datos solo falta agregar las imagenes.
Código PHP:
Var ID:double;
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
fn:string;
begin
IBQuery1.Open;
IBQuery1.First;
Destino.Open;
try
while not IBQuery1.Eof do
begin
ID:= IBQuery1ETIQUETA_ID.Value;
Destino.Locate('ETIQUETA_ID',ID, []);
fn:='C:\Logo.bmp';
TBlobField(IBQuery1.FieldByName('ETIQUETA_IMAGEN')).SaveToFile('C:\Logo.bmp');
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile(fn);
MyJPEG := TJPEGImage.Create;
with MyJPEG do
begin
Assign(MyBMP);
SaveToFile('C:\YourJpegHere.jpg');
Free;
end;
finally
Free;
end;
Destino.Edit;
DestinoETIQUETA_IMAGEN.LoadFromFile('C:\YourJpegHere.jpg');
Destino.Post;
IBQuery1.Next;
end;
trDestino.Commit;
finally
IBQuery1.close;
Destino.close;
ShowMessage('listo de procesar ....');
end;
end;
Bueno si lo ejecuto me da el error de bitmap image is not valid. sin encambio si paso de bmp a bmp no hay problemas, pero es mejor convertir a jpg por el tamaño que ocupan.
gracias.