![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#8
|
|||
|
|||
|
Yo hago lo siguiente para guardar una imagen:
Código:
procedure TFAFLogos.GuardaLogo;
begin
try
with (DataSource1.DataSet as TClientDataSet) do
begin
if FAFMLogoCliente.FileName <> '' then
begin
Edit;
(FieldByName('LOGO') as TBlobField).LoadFromFile(FAFMLogoCliente.FileName);
Post;
end;
end;
except
Forense.Autopsia (ClassName + '.GuardaFoto');
raise;
end;
end;
|
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|