(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.

//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;

(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 .