Delphi 7
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Delphi 7 - 2005-02-07 07:36:16
|
|
|
HellFire
Сообщений: 14
Оценки: 0
Присоединился: 2005-01-05 04:04:30
|
У меня в Delphi 7 нет вкладки FastNet,
и я не могу выложить на форму компонент
TNMSMTP (с панели FastNet)…[sm=19.gif]
Соответственно не могу с помощью этой проги отправлять
емейлы…
На всякий случай вот листинг проги:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.enabled:=false;
kolvo:=0;
NMSMTP1.Host:= Edit2.text;
NMSMTP1.Port:= 25; //ïîðò
NMSMTP1.Connect;
while kolvo<>(StrToInt(Edit5.text)) do begin
kolvo:= kolvo+1;
NMSMTP1.PostMessage.FromAddress:= Edit1.text;
NMSMTP1.PostMessage.FromName:= Edit4.text;
NMSMTP1.PostMessage.ToAddress.Add(Edit1.text);
MSMTP1.PostMessage.Body.Clear;
Memo1.Lines.Delete(1);
Memo1.Lines.Insert(1,Edit3.text+''#''+(intTostr(kolvo))); NMSMTP1.PostMessage.Body.AddStrings(Memo1.Lines);
NMSMTP1.PostMessage.Subject:= Edit6.text+'' ''+''#''+IntToStr(kolvo);
NMSMTP1.PostMessage.LocalProgram:= Edit7.text;
NMSMTP1.SendMail;
if kolvo=StrToInt(Edit5.text) then
begin
ShowMessage(''Messages sended: ''+ Edit5.text);
button1.enabled:=true;
NMSMTP1.Disconnect;
end;
end;
end;
end.
end;
end.
Присоветуйте чем её заменить или где достать…
|
|
|
|
|
Delphi 7 - 2005-02-07 16:06:23
|
|
|
Rubaka
Сообщений: 23
Оценки: 0
Присоединился: 2005-02-06 19:08:39
|
Чтобы она {вкладка} там была тебе сначала надо установить компонент [sm=1.gif].
torry.net тут их довольно много. поищи.
|
|
|
|
|
Delphi 7 - 2005-02-08 10:37:48
|
|
|
HellFire
Сообщений: 14
Оценки: 0
Присоединился: 2005-01-05 04:04:30
|
Ссылка немного битая - 404 выкидывает…
Что значит установить компонент?
|
|
|
|
|
Delphi 7 - 2005-02-08 14:24:50
|
|
|
2Freak
Сообщений: 60
Оценки: 0
Присоединился: 2004-11-30 15:26:56
|
2 HellFire:
"Установить компонент" значит заинсталлить юниты нужного тебе компонента (FastNet) в Дельфина [sm=mad.gif]
|
|
|
|
|
Delphi 7 - 2005-02-08 15:23:43
|
|
|
D_KeepeR
Сообщений: 5
Оценки: 0
Присоединился: 2005-02-07 13:28:19
|
пожалуй, этот вопрос лучше сюда прилепить… нужно к проекту, помимо исходников opengl'а ещё и каким то местом присобачить Delphi'ский компилятор… задача не из простых я так думаю.[sm=em88.gif] вешаюсь… и дайте кто-нить ссылу на то хде мона качнуть opengl 1.3/1.4/1.5 и/или выше от sgi.
|
|
|
|
|
Delphi 7 - 2005-02-08 17:45:28
|
|
|
Ёж
Сообщений: 5
Оценки: 0
Присоединился: 2005-02-08 17:12:38
|
а ссылка битая потому что лаги на форуме.
torry.net правильно.
|
|
|
|
|
Delphi 7 - 2005-02-09 11:03:34
|
|
|
HellFire
Сообщений: 14
Оценки: 0
Присоединился: 2005-01-05 04:04:30
|
"Установить компонент" значит заинсталлить юниты нужного тебе компонента (FastNet) в Дельфина
Подскажи пожалуйста где взять…
http://www.google.ru/search?hl=ru&q=Unit+FastNET&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=
- результаты Гугла
Ниче путевого не разыскал…[sm=6.gif]
|
|
|
|
|
Delphi 7 - 2005-02-09 17:04:59
|
|
|
mediv
Сообщений: 21
Оценки: 0
Присоединился: 2005-02-09 16:58:57
|
2HellFire тебе что конкретно надо? сам компонент или хэлпы по установке etc?
компонент лежит тут
мануалы ищи сам…
|
|
|
|
|
Delphi 7 - 2005-02-10 11:04:24
|
|
|
HellFire
Сообщений: 14
Оценки: 0
Присоединился: 2005-01-05 04:04:30
|
В конечном итоге мне надо написать прогу которая
отправляет почту (для спам-бомберов, троянов…)
Unit NMSmpt у меня отсутствует…
|
|
|
|
|
|
