Ver Mensaje Individual
  #1  
Antiguo 02-02-2006
uper uper is offline
Miembro
 
Registrado: abr 2004
Posts: 296
Reputación: 21
uper Va por buen camino
no puedo insertar bmp a jpg desde codigo.

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.
Responder Con Cita