Ir para conteúdo
Fórum Script Brasil
  • 0

Imagens Em Um Banco De Dados


koala

Pergunta

ph34r.gif

Como faço para colocar imagens dentro de um banco de dados como o paradox?

e queria saber se eu posso colocar fotos JPG ou só bitmap.

eu gostaria que tivesse uma combo box e quando eu soltar em um item dai o conteudo aparece em uma Dbedit mas no caso da foto preciso que aparece em uma DBimage ou outra coisa parecida.

é urgente

Obrigado desde já.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Gravar imagem JPG em tabela Paradox
--------------------------------------------------------------------------------
Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; 
Foto:TImage; Dialog:TOpenPictureDialog);
var BS:TBlobStream;
MinhaImagem:TJPEGImage;
Begin
Dialog.InitialDir := 'c:\temp';
Dialog.Execute;
if Dialog.FileName <> '' Then
Begin
if not (Tabela.State in [dsEdit, dsInsert]) Then
Tabela.Edit;
BS := TBlobStream.Create((Campo as TBlobField), BMWRITE);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromFile(Dialog.FileName);
MinhaImagem.SaveToStream(BS);
Foto.Picture.Assign(MinhaImagem);
BS.Free;
MinhaImagem.Free;
Tabela.Post;
DBISaveChanges(Tabela.Handle);
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, 
OpenPictureDialog1);
// TbClientes é o nome de alguma Tabela
// TbClientesCli_Foto é um variavel da tabela do tipo Blob
// Image1 é um componente
// OpenPictureDialog1 é o componente para abrir a figura
end;

Link para o comentário
Compartilhar em outros sites

  • 0

Caso Queirz colocar num banco Intebase é mais facil ainda:

cria a tabela no interbase

CREATE TABLE "FOTO"
(
"COD" INTEGER NOT NULL,
"FOTO" BLOB SUB_TYPE 0 SEGMENT SIZE 1,
CONSTRAINT "PK_FOTO" PRIMARY KEY("COD")
);
NO DELPHI, você COLOCA UM COMPONENTE "OPENPICTUREDIALOG" COLOCA UM BOTÃO "FOTO" E NO EVENTO "ONCLICK" COLOCA ASSIM:
begin
IF openpicturedialog.execute then
IBDataSetFOTO.LoadFromFile(openpicturedialog.FileName);
end;

até mais...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...