Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Esto guarda imagene en tu tabla paradox (https://www.clubdelphi.com/foros/showthread.php?t=49717)

HW-AND-SW 28-10-2007 02:07:52

Esto guarda imagene en tu tabla paradox
 
Solo necesitas un boton para buscar la imagen que deseas almacenar que en este caso es el Button1 donde necesitas un componente openpicturedialog, un componente table para poder gurdarla y el Button1 es para guardar.
Espero les sirva yo busque mucho esta informacion y nada me servia a lo mejor por que soy nuevo en esto no me la complico y busco maneras faciles.


Código Delphi [-]
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, DBCtrls, ExtDlgs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Table1: TTable;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
openpicturedialog1.execute;
image1.Picture.LoadFromFile(openpicturedialog1.filename);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TABLE1.OPEN;
TABLE1.INSERT;
TABLE1.FieldByName('FOTO').ASSIGN(Image1.Picture);
TABLE1.POST;
TABLE1.CLOSE;
end;
end.

Ñuño Martínez 28-10-2007 19:44:48

¿Y esto a qué viene? :confused: ¿Hay que añadir una pregunta más a la Guia de estilo? ¿Dónde está el botón "Responder"?

eduarcol 28-10-2007 20:20:55

Pienso que el compañero lo que quizo fue compartir una informacion que encontro tras arduas jornadas de busqueda con todos nosotros, lo digo por esto:

Cita:

Empezado por HW-AND-SW (Mensaje 241753)
...
Espero les sirva yo busque mucho esta informacion y nada me servia a lo mejor por que soy nuevo en esto no me la complico y busco maneras faciles.



Ñuño Martínez 28-10-2007 21:34:14

Pues si es eso, muchas gracias :)

HW-AND-SW 31-10-2007 00:36:35

asi es, soy nuevo en club y pues me ayudado mucho, bueno me a dado unas idea de lo que puedo hacer, y como yo busque informacion y no encontraba quise poner mi granito de arena todo lo que encontraba sobre el tema de guardar imagenes en tablas era en un campo blod o algo asi que es de interbase creo y pues yo uso paradox y delphi 5 todavia no me actualizo en ese aspecto pero pronto tendre delphi 7 y pondre en practica mucho trucos que e visto
mil gracia a todos
:D

HW-AND-SW 31-10-2007 23:15:59

Que creen
 
:(ahora no se como obtener la imagen que guarde en mi tabla paradox en el campo graphic, lo que quiero hacer es mediante la clave que es el nombre de usuario que guarde al mismo tiempo obtener la imagen guardada lo quiero hacer con el query pero no se que sentencia usar.

pongo un ejemplo para ver si me pueden ayudar

query1.Close;
QUERY1.SQL.Clear;
query1.SQL.Add('Select * FROM socio');
QUERY1.SQL.ADD('WHERE NOMBRE like'+'"'+combobox1.TEXT+'%'+'"');
QUERY1.OPEN;
Image1.Picture:=QUERY1.FIELDBYNAME('foto').assign;

eduarcol 01-11-2007 00:12:12

y porq no usas un DBImage y te ahorras todo el trabajo??

HW-AND-SW 01-11-2007 00:16:03

Gracias por contestar
 
Que crees se que es la manera mas facil y si lo tengo asi, pero ahora para ahorra tiempo quiero solo anotar el nombre y que me aparescan sus datos y la foto y con dbimage tengo que ir uno por uno buscando hasta encontrarlo no crees
bueno eso pienso yo asi lo manejo
o si sabes alguna forma te lo agradeceria:)

eduarcol 01-11-2007 00:38:38

aqui esta la solucion: http://www.clubdelphi.com/foros/show...08&postcount=2

HW-AND-SW 01-11-2007 00:43:56

es buena aportacion
 
lo que pasa es que yo ocupo un campo graphic y el codigo que me mandas es con un campo blob
bueno eso lo que le entiendo al codigo y pues yo necesito para el campo graphic
yo estoy utilizando paradox7
pero te todos maneras gracias
espero alguien me pueda ayudar
:D

eduarcol 01-11-2007 01:21:07

pero solo por preguntar, ya probastes si funciona el cast con ese tipo de campo??

HW-AND-SW 01-11-2007 01:28:57

gracias eres el unico que me esta dado una idea
 
pero la verdad no se que es el "cast" me puedes decir u orientar para poder probarlo
gracias de antemano por el interes

HW-AND-SW 02-11-2007 00:26:40

lo solucione
 
este fue el codigo que utilice

Image1.Picture.Assign(Query1.FieldByName('foto'));


espero le sea de utilidad a alguien:)


La franja horaria es GMT +2. Ahora son las 17:25:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi