Abrir uma imagem localizada em uma pasta no servidor

Question

Tenho um aplicativo que possui um formul�rio com a foto do cliente. Sem compartilhar a pasta onde est�o localizadas as fotos, como seria o c�digo para abri-la em outro cumputador na rede....

Afarias · Answer

vc teria q usar um sistema cliente/servidor. sua aplica��o seria cliente e vc teria q construir um servidor para fornecer as fotos (usando Sockets por exemplo) -- ou -- usar um servidor padr�o como ftp, http, ssh, etc.

um servidor de banco de dados tb funcionaria, desde q o SGBD permita que vc crie uma fun��o para dinamicamente carregar o arquivo e transmit�-lo como resposta a um comando SQL de sua aplica��o.

T+

Fdamds · Answer

Obrigado Afarias,Ent�o como seria o c�digo para gravar a foto no banco e traz�-la para o formul�rio no computador cliente?...

Afarias · Answer

|Ent�o como seria o c�digo para gravar a foto no banco e traz�-la para o
|formul�rio no computador cliente?

Eu n�o disse para gravar a imagem no banco, eu disse para construir uma fun��o (o q pode n�o ser exatamente uma tarefa simples) que carrega-se o arquivo do disco e transmitisse usando o protocolo do banco.

Entretanto, gravar a imagem no banco de dados em lugar do disco tb � uma op��o (q tem seu lado positivo e negativo)

Como gravar e recuperar uma imagem de um banco de dados pode depender do banco de dados e componentes de conex�o q vc usa. Se tiver interesse d� mais detalhes e se eu puder passarei um exemplo.

Basicamente vc cria um campo tipo BLOB no banco de dados, e usa fun��es como LoadFromStream/LoadFromFile e SaveToStream/SaveToFile para carregar/salvar a imagem para o campo.

T+

Fdamds · Answer

Obrigado Afarias pela disposi��o em ajudar.

Meu aplicativo foi desenvolvido para realizar controle escolar. Dentre os diversos formul�rios, existe um que realiza o cadastro de alunos, inclusive salvando a foto.

Como eu disse, da maneira como programei, ele grava e recupera a foto tranquilamente, quando a aplica��o � executada no computador servidor. Por�m se � executado de uma esta��o � dada a informa��o que a foto n�o foi localizada, isto porque ela se encontra em diretorio na unidade C:.

Meu aplicativo est� conectado a um banco Interbase. E utilizo para a conex�o o componente Interbase, da paleta do pr�prio delphi.

Gostaria que voc� me enviasse um exemplo, se poss�vel com o passo-a-passo, desde a cria��o do campo blob no banco interbase, at� o c�digo para gravar e abrir a foto desejada.

Mais uma vez, obrigado pela aten��o!

Adilsond · Answer

voce pode compartilhar o diret�rio onde encontram-se as fotos e no seu aplicativo colocar o caminho comoComputadorNomeDoCompartilhamento...

Afarias · Answer

|Gostaria que voc� me enviasse um exemplo, se poss�vel com o passo-a-
|passo, desde a cria��o do campo blob no banco interbase, at� o c�digo para
|gravar e abrir a foto desejada.

criar o campo blob � simples, ex:

create table teste (
codigo integer not null,
[b:53440f086b]foto blob sub_type 0[/b:53440f086b]
);

ou

alter table teste [b:53440f086b]add foto blob sub_type 0[/b:53440f086b];

***

gravar uma imagem para o campo ou par�metro de um insert/update tb � simples, ex:

if OpenDialog1.Execute then
  TBlobField(IBQuery1.FieldByName(�FOTO�)).LoadFromFile(OpenDialog1.FileName);

no caso de par�metros, � semelhante:

if OpenDialog1.Execute then
  IBQuery1.ParamByName(�P_FOTO�).LoadFromFile(OpenDialog1.FileName, ftBlob);

***

Carregar a imagem do banco e mostrar para o usu�rio � simples mais requer uma pequena aten��o. Primeiro, pra simplificar seu c�digo � importante que vc permita apenas 1 tipo de imagem (bmp ou jpg s�o boas op��es).

Se optar por imagens BMP ent�o vc n�o tem q fazer nada. Use um DBImage associado ao seu campo foto da Query e pronto, ele vai renderizar a imagem para vc. Entretanto um DBImage suporta apenas BMP... Se vc optar por um outro tipo de imagem como JPG ou PNG (por causa da compress�o) vc n�o poder� usar um DBImage.

Neste caso, vc deve usar um componente como TImage e renderizar a imagem manualmente. Segue um c�digo exemplo:

procedure TForm1.ShowImage;
var
  stm: TStream;
  jpg: TJPEGImage;
begin
  stm := TMemoryStream.Create;
  try
    TBlobField(IBQuery1.FieldByName(�FOTO�)).SaveToStream(stm);
    stm.Position := 0;
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromStream(stm);
      Image1.Picture.Assign(jpg);
    finally
      jpg.Free;
    end;
  finally
    stm.Free;
  end;
end;

Espero q isto ajude.

T+

F�rum Abrir uma imagem localizada em uma pasta no servidor #375561