[ XGhost @ 18.01.2018. 10:20 ] @
Imam problem sa slanjem attachmenta
Kod je

procedure TForm1.Button2Click(Sender: TObject);
begin

IdMessage1 := TIdMessage.Create(Self);
IdSMTP1.Connect;
IdMessage1.From.Address := '[email protected]';
IdMessage1.Subject := 'My test email';
IdMessage1.Recipients.Add.Address := '[email protected]';
IdMessage1.Body.Text := 'pozdrav';
TIdAttachment.Create(IdMessage1.MessageParts,('c:\AeroAdminLog.txt'));
IdSMTP1.Send(IdMessage1);
showmessage('test mail sent');
end;

program nece da se kompajlira i pokazuje gresku na ('c:\AeroAdminLog.txt'))
tacnije kad dodje do (.

[ vstamenovic4 @ 18.01.2018. 11:36 ] @
[ vstamenovic4 @ 18.01.2018. 11:44 ] @
U c:\ napravi fajl AeroAdminLog.txt!
[ XGhost @ 18.01.2018. 11:49 ] @
Vec ima fajl nije u tome problem vec negdje u kodu
[ Rapaic Rajko @ 18.01.2018. 12:38 ] @
Dobaci poruku greske da vidimo.
Bice da ti je druga verzija package-a ili tako nesto.

Pozz
[ Rapaic Rajko @ 18.01.2018. 12:48 ] @
Nasao; bice da dobijas poruku 'abstract error' ili tako nesto.

Koristis kod za stariji Delphi (recimo iz 7-ice), u novijem Delphi-ju (XE...).
Promenjena je klasa TIdAttachment, sada je abstract (constructor i jos par metoda moraju da se override-uju).
Pokusaj sa TidAttachmentFile, to je descendent klase TidAttachment upravo za slanje fajlova.

Pozz
[ XGhost @ 18.01.2018. 21:29 ] @
Rjeseno
TIdAttachmentFile.Create(IdMessage1.MessageParts, 'c:\AeroAdminLog.txt');
hvala na pomoci

[Ovu poruku je menjao XGhost dana 18.01.2018. u 22:39 GMT+1]
[ captPicard @ 18.01.2018. 21:38 ] @
Možda pomogne?
stackoverflow