RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  53354 - GUARDAR IMAGEN EN MYSQL UTILIZANDO SOLO CODIGO
Autor:  Jose Vinicio Rivera Miranda
Hola.
He estado buscando informacion sobre como guardar imagenes en mysql con delphi, pero la mayoria de info que encuento utilizan tquery o ttable, yo no utilizo estos componentes sino que todo lo hago con codigo desde la conexion hasta los recordsets para las consultas sql, hasta ahora no he tenido ningun contratiempo, pero no se como agregar una imagen sin utilizar componentes. Estos son los codigos que utilizo:

para guardar informacion utilizo algo como esto:

procedure TForm1.AddBank;
var
SqlText: string;
RsCon: _Recordset;
begin
SqlText := 'SELECT * FROM Banks';
RsCon := coRecordSet.Create;
RsCon.Open(SqlText,Form1.AdoCon,adOpenDynamic,adLockOptimistic,adCmdText);

RsCon.AddNew(EmptyParam,EmptyParam);
RsCon.Fields.Item['BankName'].Value := Form1.BankName.Text;
RsCon.Fields.Item['BankCity'].Value := Form1.BankCity.Text;
RsCon.Fields.Item['BankAddress'].Value := Form1.BankAddress.Text;
RsCon.Fields.Item['BankTelephone'].Value := Form1.BankTelephone.Text;
RsCon.Fields.Item['BankContact'].Value := Form1.BankContact.Text;
RsCon.Fields.Item['BankBalance'].Value := Form1.BankBalance.Text;
RsCon.Update(EmptyParam,EmptyParam);
RsCon := nil;
end;

en un procedimiento parecido al anterior quiero colocar el campo donde iria la imagen, solo se que es un campo blob, pero lo he intentado de varias formar pero no he podido lograrlo, que tendria que agragarle a este codigo para que guardara en un campo blob


Nombre
Apellidos
Correo
Comentarios