Форум: "Сети";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

Можно ли создать 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.

---

← →
Layner ©   (2004-02-13 13:00) [4]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.037 c