Mail ekinde image resmi gönderme

[gonulali]

Merhaba Üstadlarım.
yaptığım program içinde mail gönderimi yapıyorum. bu kısımda sorun yok, ama mail içeriğinde veya ekinde image nesnesindeki görüntülenen resmi de göndermek istiyorum. Nasıl bir yol izlemem gerek acaba? Yardımlarınızı rica ediyorum.

[enigma]

(17-01-2022, Saat: 13:30)gonulali Adlı Kullanıcıdan Alıntı: Merhaba Üstadlarım.
yaptığım program içinde mail gönderimi yapıyorum. bu kısımda sorun yok, ama mail içeriğinde veya ekinde image nesnesindeki görüntülenen resmi de göndermek istiyorum. Nasıl bir yol izlemem gerek acaba? Yardımlarınızı rica ediyorum.

Şunu bir inceleyin isterseniz. Ben 4 sene kadar önce yapmıştım ve çalıştı. Hem ek dosya hem de resim gönderebiliyorsunuz.

http://www.delphiturkiye.com/forum/viewt...hp?t=36038

[QuAdR]

//MailMessage: TIdMessage;

var
 Path: string;
 SR: TSearchRec;


Path := ExtractFilePath(ParamStr(0));


if FindFirst(Path + '*.jpg', faAnyFile, SR) = 0 then
     begin
       repeat
         with TIdAttachmentFile.Create(MailMessage.MessageParts, Path + SR.Name) do
         begin
           ContentType := 'image/jpeg';
           FileName := SR.Name;
         end;
       until FindNext(SR) <> 0;
       FindClose(SR);
     end;

[gonulali]

Teşekkür ederim, yanlış anlaşılma oldu sanırım. Ben program açıkken image1 nesnesinin içinde gösterilen resmi göndermek istiyorum. Kullanıcın manuel ekleyeceği bir resmi değil.
image1 de gösterilen resimde veri tabanından geliyor.

[COMMANDX]

(18-01-2022, Saat: 10:31)gonulali Adlı Kullanıcıdan Alıntı: Teşekkür ederim, yanlış anlaşılma oldu sanırım. Ben program açıkken image1 nesnesinin içinde gösterilen resmi göndermek istiyorum. Kullanıcın manuel ekleyeceği bir resmi değil.
image1 de gösterilen resimde veri tabanından geliyor.

image1.Picture.SaveToFile('c:\deneme.jpg');

sonra nereye göndereceksen 'c:\deneme.jpg' olarak Load edersin .

[gonulali]

Evet hocam. Teşekkür Ederim herkese.