Ai vai minha rotina, testo tudo, inclusive o tamanho da foto para não ser
gravada com mais de 25k.
O usuario escaneia a foto, recorta e deixa na area de transferencia,
simples, depois é só clicar em um botao.
Esta rotina esta na propriedade onclick.
procedure TFRMalunos.BTfotoClick(Sender: TObject);
begin
// caso o aluno ainda nao tenha registro, eu incluo.
Try DM1.BDfotos.AppendRecord([DM1.BDalunosCDaluno.Value]); except end;
DM1.BDfotos.Edit;
// Aqui eu transfiro a foto da area de transferencia para o arquivo.
DBIfotoAluno.PasteFromClipboard;
// Verifico o tamanho da foto pra evitar gravar uma foto muito grande
if (DM1.BDfotosFotoDoAluno.BlobSize > 25000) or
(DM1.BDfotosFotoDoAluno.BlobSize = 0) then begin
ShowMessage('Foto está mal escaneada, ficou muito grande ou vazia. Por
Favor, ' +
'Scaneie a Foto com 75DPI e recorte do tamanho ideal.');
DM1.BDfotos.Cancel; end;
end;
-----Mensagem original-----
De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 31 de janeiro de 2005 11:14
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Gravar imagem no banco Paradox
Vinicius, vc pode me dizer como faz para gravar a imagem no banco e como faz
para exibi-la no form quando esta consultando o mesmo ?
-----Mensagem original-----
De: Vinicius da Silva Pinto [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 31 de janeiro de 2005 10:23
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Gravar imagem no banco Paradox
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
