Autor
Mensagem
Postado em: 24/2/2012 08:40:12 AM
Pessoal,
Criei a tabela abaixo, e nela tem um campo
que irei armazenar a imagem no banco de dados e
nesta tabela tem aproximadamente 200 registros
e estou achando que esta demorando muito aproximadamente
1 minuto e 20 segundos.
Tem como dar uma melhorada nisso ?
CREATE TABLE [dbo].[ficha_tecnica_detalhe_anexos](
[nro_ficha] [int] NULL,
[referencia] [int] NULL,
[anexos] [nvarchar](300) NULL,
[Recno] [int] IDENTITY(1,1) NOT NULL,
[ano] [int] NULL,
[FOTO] [image] NULL,
[nome_arquivo] [nvarchar](100) NULL,
[status] [nvarchar](1) NULL,
CONSTRAINT [PK_ficha_tecnica_detalhe_anexos] PRIMARY KEY CLUSTERED
(
[Recno] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, FILLFACTOR = 80) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
Criei a tabela abaixo, e nela tem um campo
que irei armazenar a imagem no banco de dados e
nesta tabela tem aproximadamente 200 registros
e estou achando que esta demorando muito aproximadamente
1 minuto e 20 segundos.
Tem como dar uma melhorada nisso ?
CREATE TABLE [dbo].[ficha_tecnica_detalhe_anexos](
[nro_ficha] [int] NULL,
[referencia] [int] NULL,
[anexos] [nvarchar](300) NULL,
[Recno] [int] IDENTITY(1,1) NOT NULL,
[ano] [int] NULL,
[FOTO] [image] NULL,
[nome_arquivo] [nvarchar](100) NULL,
[status] [nvarchar](1) NULL,
CONSTRAINT [PK_ficha_tecnica_detalhe_anexos] PRIMARY KEY CLUSTERED
(
[Recno] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, FILLFACTOR = 80) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
Postado em: 24/2/2012 12:36:18 PM
Resolvi desta forma e resolvi compartilhar .
foto := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
with dm.cdsincluifotos do
begin
cString := ;
cString := insert into [SID].[dbo].[ficha_tecnica_detalhe_anexos] ;
cString := cString + ( ;
cString := cString + nro_ficha,FOTO,ano,referencia,nome_arquivo,status;
cString := cString + ;
cString := cString + );
cString := cString + VALUES (:nro_ficha, :foto, :ano, :referencia,:nome_arquivo,:status);
Params[0].Name := nro_ficha;
Params[0].Value := ClientDataSetGrid.FieldByName(nro_ficha).AsString;
Params[1].Name := foto;
Params[1].LoadFromStream(foto, ftGraphic);
Params[2].Name := ano;
Params[2].Value := ClientDataSetGrid.FieldByName(ano).AsString;
Params[3].Name := referencia;
Params[3].Value := ClientDataSetGrid.FieldByName(referencia).AsString;
Params[4].Name := nome_arquivo;
Params[4].Value := ExtractFileName(OpenPictureDialog1.FileName);
Params[5].Name := status;
Params[5].Value := P; DataRequest(cString);
execute;
end;
foto := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
with dm.cdsincluifotos do
begin
cString := ;
cString := insert into [SID].[dbo].[ficha_tecnica_detalhe_anexos] ;
cString := cString + ( ;
cString := cString + nro_ficha,FOTO,ano,referencia,nome_arquivo,status;
cString := cString + ;
cString := cString + );
cString := cString + VALUES (:nro_ficha, :foto, :ano, :referencia,:nome_arquivo,:status);
Params[0].Name := nro_ficha;
Params[0].Value := ClientDataSetGrid.FieldByName(nro_ficha).AsString;
Params[1].Name := foto;
Params[1].LoadFromStream(foto, ftGraphic);
Params[2].Name := ano;
Params[2].Value := ClientDataSetGrid.FieldByName(ano).AsString;
Params[3].Name := referencia;
Params[3].Value := ClientDataSetGrid.FieldByName(referencia).AsString;
Params[4].Name := nome_arquivo;
Params[4].Value := ExtractFileName(OpenPictureDialog1.FileName);
Params[5].Name := status;
Params[5].Value := P; DataRequest(cString);
execute;
end;
Postado em: 1/3/2012 08:35:32 PM
Qual o formato da imagem que vc está salvando e tamanho médio delas?
Postado em: 5/4/2012 01:54:32 PM
nas consultas voce tras todos os registros com as suas imagens? provavelmente as imagens que estao pesando nas consultas, uma ideia seria nas consulta nao trazer o campo de imagem e ao exibir os dados captura-las
