Cadastrar Foto
29/10/2007
0
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.
como cadastrar tamanhos padrão, por exemplo sempre 200x250 pixels.
Grato
Paulo F.
Pauloroger
Curtir tópico
+ 0
Responder
Posts
30/10/2007
Pauloroger
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;
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;
Responder
01/11/2007
Knight_of_wine
Massa esse código, mas você pode usar campos do Tipo blob também seria uma ótima opção.
Responder
Clique aqui para fazer login e interagir na Comunidade :)