Можно ли создать TIdSMTP в безформеном приложении? (=сервис NT)

← →
Layner © (2004-02-13 11:18) [0]

Далаю так, что то не получается :( Ф-ю вызываю так SendMail("192.168.1.1");
function SendMail(aHost: String): Boolean; var IdSMTP: TIdSMTP; begin Result := false; CoInitialize(nil); try IdSMTP.Create(nil); // тут даже пусто! Без кода! А всё равно ругается! IdSMTP.Free; finally CoUnInitialize; end; end;
И ругается... на блок памяти, такой то... Что то не так делаю? :(
Заранее благодарю.

← →
Layner © (2004-02-13 11:20) [1]

Вот весь код, в файле *.dpr
program mailsend; uses SysUtils, Variants, Classes, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdMessage, ActiveX; {$R *.res} function SendMail(aHost: String): Boolean; var IdSMTP: TIdSMTP; //IdMessage: TIdMessage; begin Result := false; CoInitialize(nil); try IdSMTP.Create(nil); // тут даже пусто! Без кода! А всё равно ругается! IdSMTP.Free; finally CoUnInitialize; end; end; begin SendMail("192.168.1.1"); end.

← →
Layner © (2004-02-13 11:23) [2]

Да, это ec-но не сервис NT, я пока делаю на exe, без формы (и не консольном :).
На "форменом exe" работает без проблем. Но там TIdSMTP в качестве компанента кинут на форму...
:(

← →
Verg © (2004-02-13 11:36) [3]

> function SendMail(aHost: String): Boolean;
> var
> IdSMTP: TIdSMTP;
> //IdMessage: TIdMessage;
> begin
> Result := false;
> CoInitialize(nil);
> try
> IdSMTP := TIdSMTP.Create(nil);
> // тут даже пусто! Без кода! А всё равно ругается!
> IdSMTP.Free;
> finally
> CoUnInitialize;
> end;
> end;
>
> begin
> SendMail("192.168.1.1");
> end.

Да... ложанулся я.... Спасибо Verg !!!

Можно ли создать TIdSMTP в безформеном приложении? (=сервис NT) Найти похожие ветки