| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Layner ©   (2004-02-13 11:18:00) 

Далаю так, что то не получается :( Ф-ю вызываю так 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 13:00:00) [1]

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

---

Verg   (2004-02-13 11:36:00) [2]

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

---

Layner   (2004-02-13 11:23:00) [3]

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

---

Layner   (2004-02-13 11:20:00) [4]

Вот весь код, в файле *.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.

---

Наверх