Fast - Поиск - Библиотека программиста

Поиск

FastSocket ActiveX

Дата: 20.01.2025 Модуль: Категория: Компоненты ActiveX

Разместил: admin Адрес сайта: programmistu.info

K-Lite Codec Pack Full 4.4.5

Дата: 20.01.2025 Модуль: Категория: Мультимедиа

Разместил: admin Адрес сайта: programmistu.info Смотрим и оставляем комментарий »

Документ формата PDF и его индексация поисковыми системами

Дата: 20.01.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

Отправка письма средствами Delphi

Дата: 20.01.2025 Модуль: Категория: Delphi и TurboPascal

Для отправки электронного письма, без использования почтового клиента, мы будем использовать компонент TNSMTP, который находится на вкладке FastNet.

Компонент TNSMTP позволяет отправлять электронную почту через почтовый сервер или выполнять другие команды, описанные в стандарте RFC 821. Данный компонент работает по протоколу SMTP (Simple Mail Transfer Protocol). По стандарту RFC 821 протокол SMTP использует порт 25. При подключении к почтовому серверу необходимо знать учетную запись (login) своего почтового ящика. Чаще всего, имя пользователя - это начальная часть вашего почтового адреса – до символа «@». Так же для подключения к SMTP серверу необходимо знать его адрес. Адрес своего почтового сервера указывается при создании на нем почтового ящика. Стоит заметить, что адрес почтового ящика и адрес сервера – это совершенно разные вещи.

Создадим небольшой пример. Добавим на форму стандартную кнопку и компонент TNSMTP.

Собственно, Вы можете и не добавлять на форму данный компонент, а просто прописать его в строках Uses. Такой вариант очень полезен, если Вы пишете программу в «консольном» режиме.

Код:

Код

Uses .., NMsmtp;

Но этого мы делать не будем. В обработчик кнопки поместим код расположенный ниже.

Код:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
NSMTP1.Host := 'smtp.Inbox.ru'; {адрес SMTP сервера (или IP-Адресс)}
NSMTP1.Port := 25; {Порт SMTP сервера (по стандарту RFC 821 равен 25)}
NSMTP1.Connect; {Подключение к SMTP серверу}
With NSMTP1 do
begin
Charset := 'windows-1251'; {Кодировка письма}
PostMessage.FromAddress:='homosapienz@inbox.ru'; {Отправитель письма}
PostMessage.ToAddress.Text:='homosapienz@inbox.ru'; {Получатель письма}
PostMessage.Body.Text:='Письмо отправлено с помощью Delphi'; {Текст письма}
SendMail; {Отправляем письмо}
end;
{Проверяем состояние подключения}
if NSMTP1.Connected then
NSMTP1.Disconnect; {Отключение от сервера}
end;

Для корректной работы компонента необходимо заполнить свойства Host и Port. Для того чтобы подключиться к серверу, необходимо вызывать метод Connect, а для отключения - Disconnect. Главное свойство компонента TNSMTP - PostMessage. Это свойство содержит в себе информацию об отправляемом письме: ToAddress (адрес получателя), FromAddress (адрес отправителя), Body (текст письма), Subject (тема письма) и FromName (имя отправителя). После отправки письма необходимо отключиться от сервера, используя метод Disconnect.

Разместил: admin Смотрим и оставляем комментарий »

Адресация пакетов

Дата: 20.01.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Коды передачи информации

Дата: 20.01.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Кабели на основе витых пар

Дата: 20.01.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Все, что нужно знать о ListBox

Дата: 20.01.2025 Модуль: Категория: С++, Visual C++

Над каким элементом находится курсор мыши ?

Навигация в ListBox при множественном выборе

Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint ?

Как узнать количество строк(записей) ?

Прокрутка ListBox на одну строку вниз

Удаление выбранных элементов в TListBox

Над каким элементом находится курсор мыши ?

Код

// поместите на форму Form1 компонент ListBox1 и напишите
// следующий обработчик события OnMouseMove:
void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
if(ListBox1->ItemAtPos(TPoint(X, Y), true) != -1)
Form1->Caption = ListBox1->Items->Strings[ListBox1->ItemAtPos(TPoint(X, Y), true)];
}

Навигация в ListBox при множественном выборе

Код

// разместите на форме ListBox1, установите у него
// свойство MultiSelect в true, добавьте в ListBox1
// несколько элементов, разместите также на форме
// кнопку Button1, в обработчике события OnClick
// которой напишите следующий код, который будет
// выводить сообщение для каждого элемента ListBox,
// выбранного пользователем:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i = 0; i < ListBox1->Items->Count; i++)
if(ListBox1->Selected[i])
ShowMessage(ListBox1->Items->Strings[i]);
}

Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint ?

Код

// Где нибудь на показывании формы :
Application->HintPause = 0;
Application->HintShortPause = 0;
Application->HintHidePause = 10000000000;
Application->OnShowHint = TIn4Form->DoShowHint;

void __fastcall TIn4Form::DoShowHint(System::AnsiString &HintStr, bool
&CanShow, THintInfo &HintInfo)
{
CanShow = true;
if (HintInfo.HintControl == ListBox1 )
{
if( Mouse->Capture )
{
CanShow = false;
return;
}
HintInfo.ReshowTimeout = 100;
/*HintInfo.HintColor = clAqua;// Changes only for this hint*/
TPoint pnt;
SIZE strsize;
int numstr = ListBox1->ItemAtPos(HintInfo.CursorPos,true);
if(numstr<0)
{
CanShow = false;
Application->HideHint ();
return;
}
HintStr = ListBox1->Items->Strings[numstr];
strsize = ListBox1->Canvas->TextExtent(HintStr);
if(strsize.cx<=ListBox1->ClientWidth)
{
CanShow = false;
Application->HideHint ();
return;
}
pnt.x = -1;
pnt.y =
int(HintInfo.CursorPos.y/ListBox3->ItemHeight)*ListBox1->ItemHeight - 3;
pnt = ListBox3->ClientToScreen(pnt);
HintInfo.HintPos.x = pnt.x;
HintInfo.HintPos.y = pnt.y;
HintInfo.HintMaxWidth = Screen->Width-pnt.x;
/*HintInfo.HideTimeout = 100;*/
}
}// Не забудьте поставить ShowHint у интересующего ListBox-а

Как узнать количество строк(записей) ?

Код

int i = ListBox1->Items->Count;

Прокрутка ListBox на одну строку вниз

Код

// Чтобы прокрутить содержимое списка (TListBox) на одну
// строку вниз, напишите следующий код:
SendMessage(ListBox1->Handle, WM_VSCROLL, SB_LINEDOWN, 0);

Удаление выбранных элементов в TListBox

Код

// Напишите следующий код:
for(int i = ListBox1->Items->Count-1; i >= 0; i--)
if(ListBox1->Selected[i])
ListBox1->Items->Delete(i);

Разместил: admin Смотрим и оставляем комментарий »