Array
(
)

Cadastrar Foto

Pauloroger
   - 29 out 2007

Ola a todos, gostaria de saber como vcs cadastram fotos, tenho um cadastro de funcionários, com os campos, ID(int), NOME(nvarchar(60), DATA_ADMISSAO(DateTime), URL_FOTO(nvarchar 200) tabela FUNCIONARIOS em MS-SQLServer.

como cadastrar tamanhos padrão, por exemplo sempre 200x250 pixels.

Grato


Paulo F.


Pauloroger
   - 30 out 2007

Descobri:

function TWebForm1.SalvarFoto: String;
var
aFile, aDiretorio, aPath: string;

begin
{Declare em USES System.IO }
aFile := Path.GetFileName(file1.PostedFile.FileName);

aDiretorio := ´http://www.serverLinux05.com/shalom/fotos´;
aPath := aDiretorio + ´/´ + aFile;
file1.PostedFile.SaveAs(Server.MapPath(´.\fotos\´ + aFile));
Foto.ImageUrl := aPath;
Result := aPath;

end;



no botão de gravar é so colocar:

Conexao.Open;
try
cmdGravar.Parameters[´@ID´].Value := txtID.Text;
cmdGravar.Parameters[´@NOME´].Value := txtNome.Text.ToUpper;
cmdGravar.Parameters[´@DATA_NASC´].Value := txtDataNasc.Text;
cmdGravar.Parameters[´@URL_FOTO´].Value := SalvarFoto;

if cmdGravar.ExecuteNonQuery > 0 then
Response.Write(´Inserido com Sucesso !!!´) else
Response.Write(´Erro durante cadastro !!!´);
finally
Conexao.Close;

end;


Knight_of_wine
   - 01 nov 2007

Massa esse código, mas você pode usar campos do Tipo blob também seria uma ótima opção.