Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS

←   Май 2003   →
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi

Информационный Канал Subscribe.Ru

---

---

RusFAQ.ru: Программирование на Delphi

Выпуск № 160
от 06.05.2003, 22:40

Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва

О рассылке: Задано вопросов: 633 Отправлено ответов: 1058 Активность: 167.1 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

Stein Статус: Опытный Общий рейтинг: 162.36 [Подробней >>]	markamer Статус: Начальный Общий рейтинг: 108.57 [Подробней >>]	noname Статус: Начальный Общий рейтинг: 106.55 [Подробней >>]
vitya Статус: Профессиональный Общий рейтинг: 108.04 [Подробней >>]	Илья Статус: Опытный Общий рейтинг: 103.83 [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 617. Здравствуйте! Мне очень надо скрыто отправить письмо из моей программы, но что бы пользователь ни зн... (ответов: 2)
Вопрос № 618. Привет профи! Вот параллельно с Паскалем начал учить Делфи (Паскаль знаю на среднем уровне). Основы ... (ответов: 3)
Вопрос № 619. Подскажите плиз! Как в строке Edit прочитать число тип которого integer, а потом использовать его в ... (ответов: 4)
Вопрос № 620. Здравствуйте! Я уже это спрашивал, но все же. Как совершить отправку файла на мой E-mail так, чтобы ... (ответов: 3)
Вопрос № 621. У меня такой вопрос - мне надо сделаь перехват нажатия клавиши PrintSreen в Windows, или просто го... (ответов: 1)
Вопрос № 622. Где можно найти табличку с функциями по переводу типов? Или напишите плиз!... (ответов: 2)
Вопрос № 624. Здравствуйте, господа Эксперты! У меня есть программы с базой данных, которая содержит, например, да... (ответов: 1)

---

Вопросов: 7, ответов: 16

---

Вопрос № 617

Здравствуйте!
Мне очень надо скрыто отправить письмо из моей программы, но что бы пользователь ни знал об этом. Покажите, пожалуйста, на примере.

---

Вопрос отправлен: 02.05.2003, 05:51
Отправитель: nikita (ntgu2002@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Stein

Здравствуйте, nikita!
Лови.

Приложение:
unit Email; interface uses Windows, SusUtils, Classes; function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean; function IsOnline: Boolean; implementation uses Mapi; function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean; var MapiMessage: TMapiMessage; MapiFileDesc: TMapiFileDesc; MapiRecipDesc: TMapiRecipDesc; i: integer; s: string; begin with MapiRecipDesc do begin ulRecerved:= 0; ulRecipClass:= MAPI_TO; lpszName:= PChar(RecipName); lpszAddress:= PChar(RecipAddress); ulEIDSize:= 0; lpEntryID:= nil; end; with MapiFileDesc do begin ulReserved:= 0; flFlags:= 0; nPosition:= 0; lpszPathName:= PChar(Attachment); lpszFileName:= nil; lpFileType:= nil; end; with MapiMessage do begin ulReserved := 0; lpszSubject := nil; lpszNoteText := PChar(Subject); lpszMessageType := nil; lpszDateReceived := nil; lpszConversationID := nil; flFlags := 0; lpOriginator := nil; nRecipCount := 1; lpRecips := @MapiRecipDesc; if length(Attachment) > 0 then begin nFileCount:= 1; lpFiles := @MapiFileDesc; end else begin nFileCount:= 0; lpFiles:= nil; end; end; Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS; end; function IsOnline: Boolean; var RASConn: TRASConn; dwSize,dwCount: DWORD; begin RASConns.dwSize:= SizeOf(TRASConn); dwSize:= SizeOf(RASConns); Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount); Result:= (Res = 0) and (dwCount > 0); end;

---

Ответ отправлен: 02.05.2003, 08:16
Отправитель: Stein

---

Отвечает markamer

Добрый день, nikita!
В приложении пример использования MAPI.
В нём показаны процедуры и функции отправки пискм.
(Также можно использовать спечиальные компоненты)

Приложение:
unit MapiControl; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type { Вводим новый тип события для получения Errorcode } TMapiErrEvent = procedure(Sender: TObject; ErrCode: Integer) of object; TMapiControl = class(TComponent) constructor Create(AOwner: TComponent); override; destructor Destroy; override; private { Private-объявления } FSubject: string; FMailtext: string; FFromName: string; FFromAdress: string; FTOAdr: TStrings; FCCAdr: TStrings; FBCCAdr: TStrings; FAttachedFileName: TStrings; FDisplayFileName: TStrings; FShowDialog: Boolean; FUseAppHandle: Boolean; { Error Events: } FOnUserAbort: TNotifyEvent; FOnMapiError: TMapiErrEvent; FOnSuccess: TNotifyEvent; { +> Изменения, внесённые Eugene Mayevski [mailto:Mayevski@eldos.org]} procedure SetToAddr(newValue : TStrings); procedure SetCCAddr(newValue : TStrings); procedure SetBCCAddr(newValue : TStrings); procedure SetAttachedFileName(newValue : TStrings); { +< конец изменений } protected { Protected-объявления } public { Public-объявления } ApplicationHandle: THandle; procedure Sendmail(); procedure Reset(); published { Published-объявления } property Subject: string read FSubject write FSubject; property Body: string read FMailText write FMailText; property FromName: string read FFromName write FFromName; property FromAdress: string read FFromAdress write FFromAdress; property Recipients: TStrings read FTOAdr write SetTOAddr; property CopyTo: TStrings read FCCAdr write SetCCAddr; property BlindCopyTo: TStrings read FBCCAdr write SetBCCAddr; property AttachedFiles: TStrings read FAttachedFileName write SetAttachedFileName; property DisplayFileName: TStrings read FDisplayFileName; property ShowDialog: Boolean read FShowDialog write FShowDialog; property UseAppHandle: Boolean read FUseAppHandle write FUseAppHandle; { события: } property OnUserAbort: TNotifyEvent read FOnUserAbort write FOnUserAbort; property OnMapiError: TMapiErrEvent read FOnMapiError write FOnMapiError; property OnSuccess: TNotifyEvent read FOnSuccess write FOnSuccess; end; procedure Register; implementation uses Mapi; { регистрируем компонент: } procedure Register; begin RegisterComponents('expectIT', [TMapiControl]); end; { TMapiControl } constructor TMapiControl.Create(AOwner: TComponent); begin inherited Create(AOwner); FOnUserAbort := nil; FOnMapiError := nil; FOnSuccess := nil; FSubject := ''; FMailtext := ''; FFromName := ''; FFromAdress := ''; FTOAdr := TStringList.Create; FCCAdr := TStringList.Create; FBCCAdr := TStringList.Create; FAttachedFileName := TStringList.Create; FDisplayFileName := TStringList.Create; FShowDialog := False; ApplicationHandle := Application.Handle; end; { +> Изменения, внесённые Eugene Mayevski [mailto:Mayevski@eldos.org]} procedure TMapiControl.SetToAddr(newValue : TStrings); begin FToAdr.Assign(newValue); end; procedure TMapiControl.SetCCAddr(newValue : TStrings); begin FCCAdr.Assign(newValue); end; procedure TMapiControl.SetBCCAddr(newValue : TStrings); begin FBCCAdr.Assign(newValue); end; procedure TMapiControl.SetAttachedFileName(newValue : TStrings); begin FAttachedFileName.Assign(newValue); end; { +< конец изменений } destructor TMapiControl.Destroy; begin FTOAdr.Free; FCCAdr.Free; FBCCAdr.Free; FAttachedFileName.Free; FDisplayFileName.Free; inherited destroy; end; { Сбрасываем все используемые поля} procedure TMapiControl.Reset; begin FSubject := ''; FMailtext := ''; FFromName := ''; FFromAdress := ''; FTOAdr.Clear; FCCAdr.Clear; FBCCAdr.Clear; FAttachedFileName.Clear; FDisplayFileName.Clear; end; { Эта процедура составляет и отправляет Email } procedure TMapiControl.Sendmail; var MapiMessage: TMapiMessage; MError: Cardinal; Sender: TMapiRecipDesc; PRecip, Recipients: PMapiRecipDesc; PFiles, Attachments: PMapiFileDesc; i: Integer; AppHandle: THandle; begin { Перво-наперво сохраняем Handle приложения, if not the Component might fail to send the Email or your calling Program gets locked up. } AppHandle := Application.Handle; { Нам нужно зарезервировать память для всех получателей } MapiMessage.nRecipCount := FTOAdr.Count + FCCAdr.Count + FBCCAdr.Count; GetMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc)); try with MapiMessage do begin ulReserved := 0; { Устанавливаем поле Subject: } lpszSubject := PChar(Self.FSubject); { ... Body: } lpszNoteText := PChar(FMailText); lpszMessageType := nil; lpszDateReceived := nil; lpszConversationID := nil; flFlags := 0; { и отправителя: (MAPI_ORIG) } Sender.ulReserved := 0; Sender.ulRecipClass := MAPI_ORIG; Sender.lpszName := PChar(FromName); Sender.lpszAddress := PChar(FromAdress); Sender.ulEIDSize := 0; Sender.lpEntryID := nil; lpOriginator := @Sender; PRecip := Recipients; { У нас много получателей письма: (MAPI_TO) установим для каждого: } if nRecipCount > 0 then begin for i := 1 to FTOAdr.Count do begin PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_TO; { lpszName should carry the Name like in the contacts or the adress book, I will take the email adress to keep it short: } PRecip^.lpszName := PChar(FTOAdr.Strings[i - 1]); { Если Вы используете этот компонент совместно с Outlook97 или 2000 (не Express версии) , то Вам прийдётся добавить 'SMTP:' в начало каждого (email-) адреса. } PRecip^.lpszAddress := PChar('SMTP:' + FTOAdr.Strings[i - 1]); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; Inc(PRecip); end; { То же самое проделываем с получателями копии письма: (CC, MAPI_CC) } for i := 1 to FCCAdr.Count do begin PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_CC; PRecip^.lpszName := PChar(FCCAdr.Strings[i - 1]); PRecip^.lpszAddress := PChar('SMTP:' + FCCAdr.Strings[i - 1]); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; Inc(PRecip); end; { ... тоже самое для Bcc: (BCC, MAPI_BCC) } for i := 1 to FBCCAdr.Count do begin PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_BCC; PRecip^.lpszName := PChar(FBCCAdr.Strings[i - 1]); PRecip^.lpszAddress := PChar('SMTP:' + FBCCAdr.Strings[i - 1]); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; Inc(PRecip); end; end; lpRecips := Recipients; { Теперь обработаем прикреплённые к письму файлы: } if FAttachedFileName.Count > 0 then begin nFileCount := FAttachedFileName.Count; GetMem(Attachments, MapiMessage.nFileCount * sizeof(TMapiFileDesc)); PFiles := Attachments; { Во первых установим отображаемые на экране имена файлов (без пути): } FDisplayFileName.Clear; for i := 0 to FAttachedFileName.Count - 1 do FDisplayFileName.Add(ExtractFileName(FAttachedFileName[i])); if nFileCount > 0 then begin { Теперь составим структурку для прикреплённого файла: } for i := 1 to FAttachedFileName.Count do begin { Устанавливаем полный путь } Attachments^.lpszPathName := PChar(FAttachedFileName.Strings[i - 1]); { ... и имя, отображаемое на дисплее: } Attachments^.lpszFileName := PChar(FDisplayFileName.Strings[i - 1]); Attachments^.ulReserved := 0; Attachments^.flFlags := 0; { Положение должно быть -1, за разьяснениями обращайтесь в WinApi Help. } Attachments^.nPosition := Cardinal(-1); Attachments^.lpFileType := nil; Inc(Attachments); end; end; lpFiles := PFiles; end else begin nFileCount := 0; lpFiles := nil; end; end; if FShowDialog then MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) else MError := MapiSendMail(0, AppHandle, MapiMessage, 0, 0); case MError of MAPI_E_USER_ABORT: begin if Assigned(FOnUserAbort) then FOnUserAbort(Self); end; SUCCESS_SUCCESS: begin if Assigned(FOnSuccess) then FOnSuccess(Self); end else begin if Assigned(FOnMapiError) then FOnMapiError(Self, MError); end; end; finally { В заключение освобождаем память } FreeMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc)); end; end; end.

---

Ответ отправлен: 03.05.2003, 04:59
Отправитель: markamer

---

Вопрос № 618

Привет профи!
Вот параллельно с Паскалем начал учить Делфи (Паскаль знаю на среднем уровне).
Основы Делфи я конечно словил, но столкнуся с проблемой!
Решил свой интернет-сщетчик под Паскаль переделать на Делфи и под винду, а мне необходима
задержка (по типу Delay'я в Паскале). Может надо использовать Timer что находится на вкладке
System, а как ее сделать.

---

Вопрос отправлен: 02.05.2003, 20:56
Отправитель: Кирилл
[Следующий вопрос >>] [Список вопросов]

---

Отвечает noname

Приветствую Вас, Кирилл!
sleep(count:miliseconds);
или таймер Timer1.Interval:=задержка;
Timer1.Enabled:=true;
Событие OnTimer произойдёт после прохождения интервала.
Оно будет происходить, пока Timer1.Enabled:=false

---

Ответ отправлен: 03.05.2003, 04:59
Отправитель: noname

---

Отвечает vitya

Здравствуйте, Кирилл!
Вызывай системную фукнцию Sleep(mseks). Которая усыпляет твой поток на заданное время.

---

Ответ отправлен: 03.05.2003, 09:31
Отправитель: vitya

---

Отвечает Stein

Добрый день, Кирилл!
Есть АПИ-шная функция - Steep(int интервал_задержки_в_милисекундах). Напрямую через Timer никак не приостановить работу программы.

---

Ответ отправлен: 03.05.2003, 21:09
Отправитель: Stein

---

Вопрос № 619

Подскажите плиз!
Как в строке Edit прочитать число тип которого integer, а потом использовать его в проге!

---

Вопрос отправлен: 02.05.2003, 23:07
Отправитель: Кирилл
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Илья

Здравствуйте, Кирилл!
В смысле как преобразовать строку в число? Тогда подойдет
A = StrToInt(Edit1->Text);
правда я написал как-будто это под Builder, но для Delphi должно быть что-то похожее (у меня нет возможности проверить).

---

Ответ отправлен: 03.05.2003, 02:07
Отправитель: Илья

---

Отвечает markamer

Здравствуйте, Кирилл!
Смотри приложение

Приложение:
var Str:String; Int:Integer; begin str:=Edit1.Text; Int:=StrToInt(str);//преобразование Inc(Int);//исполльзование Dec{Int}; end;

---

Ответ отправлен: 03.05.2003, 04:58
Отправитель: markamer

---

Отвечает vitya

Приветствую Вас, Кирилл!
Воспользуйся функцией: StrToInt(str).
Едит твой всегда строка - и с помощью этой функции ты превратишь ее в число.

---

Ответ отправлен: 03.05.2003, 09:33
Отправитель: vitya

---

Отвечает Stein

Доброе время суток, Кирилл!
Переменной типа Integer или другого целочисленного типа присвоить.

Приложение:
////////////// var x:integer; y:real; begin x:=StrToInt(Edit1.Text);//целое y:=StrToFloat(Edit1.Text);//вещ. end. ////////////////

---

Ответ отправлен: 03.05.2003, 21:07
Отправитель: Stein

---

Вопрос № 620

Здравствуйте! Я уже это спрашивал, но все же. Как совершить отправку файла на мой E-mail так, чтобы пользователь этого не видел (что идет отправка или сообщения, что отправилось)? И ещё, как сделать так, чтобы при запуске соей программы в Label1, Label2 выводились пароль для входа в инет и логин туда же, если они конечно есть, т.е. если существуют подключения. Ответьте, а то я не могу найти. И в Королевстве и в Мастерах по Delphi и ещё на куче других сайтов спрашивал - не знают там или не говорят. :-(

---

Вопрос отправлен: 02.05.2003, 23:14
Отправитель: Flipper (flip15@rol.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Stein

Здравствуйте, Flipper!
Да ты не спрашивай, а ИЩИ! На поиск не догадался нигде нажать??? Когда я искал, то вылезло дофига таких вопросов, но в ОДНОМ я нашёл ответ, так что кто ищет - тот найдёт. Я бы дал тебе пример(кстати прошлый не пашет что ли?), но потерял, блин.

---

Ответ отправлен: 03.05.2003, 21:04
Отправитель: Stein

---

Отвечает markamer

Доброе время суток, Flipper!
В приложении пример использования MAPI.
В нём показаны процедуры и функции отправки пискм.
(Также можно использовать спечиальные компоненты)

Приложение:
unit MapiControl; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type { Вводим новый тип события для получения Errorcode } TMapiErrEvent = procedure(Sender: TObject; ErrCode: Integer) of object; TMapiControl = class(TComponent) constructor Create(AOwner: TComponent); override; destructor Destroy; override; private { Private-объявления } FSubject: string; FMailtext: string; FFromName: string; FFromAdress: string; FTOAdr: TStrings; FCCAdr: TStrings; FBCCAdr: TStrings; FAttachedFileName: TStrings; FDisplayFileName: TStrings; FShowDialog: Boolean; FUseAppHandle: Boolean; { Error Events: } FOnUserAbort: TNotifyEvent; FOnMapiError: TMapiErrEvent; FOnSuccess: TNotifyEvent; { +> Изменения, внесённые Eugene Mayevski [mailto:Mayevski@eldos.org]} procedure SetToAddr(newValue : TStrings); procedure SetCCAddr(newValue : TStrings); procedure SetBCCAddr(newValue : TStrings); procedure SetAttachedFileName(newValue : TStrings); { +< конец изменений } protected { Protected-объявления } public { Public-объявления } ApplicationHandle: THandle; procedure Sendmail(); procedure Reset(); published { Published-объявления } property Subject: string read FSubject write FSubject; property Body: string read FMailText write FMailText; property FromName: string read FFromName write FFromName; property FromAdress: string read FFromAdress write FFromAdress; property Recipients: TStrings read FTOAdr write SetTOAddr; property CopyTo: TStrings read FCCAdr write SetCCAddr; property BlindCopyTo: TStrings read FBCCAdr write SetBCCAddr; property AttachedFiles: TStrings read FAttachedFileName write SetAttachedFileName; property DisplayFileName: TStrings read FDisplayFileName; property ShowDialog: Boolean read FShowDialog write FShowDialog; property UseAppHandle: Boolean read FUseAppHandle write FUseAppHandle; { события: } property OnUserAbort: TNotifyEvent read FOnUserAbort write FOnUserAbort; property OnMapiError: TMapiErrEvent read FOnMapiError write FOnMapiError; property OnSuccess: TNotifyEvent read FOnSuccess write FOnSuccess; end; procedure Register; implementation uses Mapi; { регистрируем компонент: } procedure Register; begin RegisterComponents('expectIT', [TMapiControl]); end; { TMapiControl } constructor TMapiControl.Create(AOwner: TComponent); begin inherited Create(AOwner); FOnUserAbort := nil; FOnMapiError := nil; FOnSuccess := nil; FSubject := ''; FMailtext := ''; FFromName := ''; FFromAdress := ''; FTOAdr := TStringList.Create; FCCAdr := TStringList.Create; FBCCAdr := TStringList.Create; FAttachedFileName := TStringList.Create; FDisplayFileName := TStringList.Create; FShowDialog := False; ApplicationHandle := Application.Handle; end; { +> Изменения, внесённые Eugene Mayevski [mailto:Mayevski@eldos.org]} procedure TMapiControl.SetToAddr(newValue : TStrings); begin FToAdr.Assign(newValue); end; procedure TMapiControl.SetCCAddr(newValue : TStrings); begin FCCAdr.Assign(newValue); end; procedure TMapiControl.SetBCCAddr(newValue : TStrings); begin FBCCAdr.Assign(newValue); end; procedure TMapiControl.SetAttachedFileName(newValue : TStrings); begin FAttachedFileName.Assign(newValue); end; { +< конец изменений } destructor TMapiControl.Destroy; begin FTOAdr.Free; FCCAdr.Free; FBCCAdr.Free; FAttachedFileName.Free; FDisplayFileName.Free; inherited destroy; end; { Сбрасываем все используемые поля} procedure TMapiControl.Reset; begin FSubject := ''; FMailtext := ''; FFromName := ''; FFromAdress := ''; FTOAdr.Clear; FCCAdr.Clear; FBCCAdr.Clear; FAttachedFileName.Clear; FDisplayFileName.Clear; end; { Эта процедура составляет и отправляет Email } procedure TMapiControl.Sendmail; var MapiMessage: TMapiMessage; MError: Cardinal; Sender: TMapiRecipDesc; PRecip, Recipients: PMapiRecipDesc; PFiles, Attachments: PMapiFileDesc; i: Integer; AppHandle: THandle; begin { Перво-наперво сохраняем Handle приложения, if not the Component might fail to send the Email or your calling Program gets locked up. } AppHandle := Application.Handle; { Нам нужно зарезервировать память для всех получателей } MapiMessage.nRecipCount := FTOAdr.Count + FCCAdr.Count + FBCCAdr.Count; GetMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc)); try with MapiMessage do begin ulReserved := 0; { Устанавливаем поле Subject: } lpszSubject := PChar(Self.FSubject); { ... Body: } lpszNoteText := PChar(FMailText); lpszMessageType := nil; lpszDateReceived := nil; lpszConversationID := nil; flFlags := 0; { и отправителя: (MAPI_ORIG) } Sender.ulReserved := 0; Sender.ulRecipClass := MAPI_ORIG; Sender.lpszName := PChar(FromName); Sender.lpszAddress := PChar(FromAdress); Sender.ulEIDSize := 0; Sender.lpEntryID := nil; lpOriginator := @Sender; PRecip := Recipients; { У нас много получателей письма: (MAPI_TO) установим для каждого: } if nRecipCount > 0 then begin for i := 1 to FTOAdr.Count do begin PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_TO; { lpszName should carry the Name like in the contacts or the adress book, I will take the email adress to keep it short: } PRecip^.lpszName := PChar(FTOAdr.Strings[i - 1]); { Если Вы используете этот компонент совместно с Outlook97 или 2000 (не Express версии) , то Вам прийдётся добавить 'SMTP:' в начало каждого (email-) адреса. } PRecip^.lpszAddress := PChar('SMTP:' + FTOAdr.Strings[i - 1]); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; Inc(PRecip); end; { То же самое проделываем с получателями копии письма: (CC, MAPI_CC) } for i := 1 to FCCAdr.Count do begin PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_CC; PRecip^.lpszName := PChar(FCCAdr.Strings[i - 1]); PRecip^.lpszAddress := PChar('SMTP:' + FCCAdr.Strings[i - 1]); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; Inc(PRecip); end; { ... тоже самое для Bcc: (BCC, MAPI_BCC) } for i := 1 to FBCCAdr.Count do begin PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_BCC; PRecip^.lpszName := PChar(FBCCAdr.Strings[i - 1]); PRecip^.lpszAddress := PChar('SMTP:' + FBCCAdr.Strings[i - 1]); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; Inc(PRecip); end; end; lpRecips := Recipients; { Теперь обработаем прикреплённые к письму файлы: } if FAttachedFileName.Count > 0 then begin nFileCount := FAttachedFileName.Count; GetMem(Attachments, MapiMessage.nFileCount * sizeof(TMapiFileDesc)); PFiles := Attachments; { Во первых установим отображаемые на экране имена файлов (без пути): } FDisplayFileName.Clear; for i := 0 to FAttachedFileName.Count - 1 do FDisplayFileName.Add(ExtractFileName(FAttachedFileName[i])); if nFileCount > 0 then begin { Теперь составим структурку для прикреплённого файла: } for i := 1 to FAttachedFileName.Count do begin { Устанавливаем полный путь } Attachments^.lpszPathName := PChar(FAttachedFileName.Strings[i - 1]); { ... и имя, отображаемое на дисплее: } Attachments^.lpszFileName := PChar(FDisplayFileName.Strings[i - 1]); Attachments^.ulReserved := 0; Attachments^.flFlags := 0; { Положение должно быть -1, за разьяснениями обращайтесь в WinApi Help. } Attachments^.nPosition := Cardinal(-1); Attachments^.lpFileType := nil; Inc(Attachments); end; end; lpFiles := PFiles; end else begin nFileCount := 0; lpFiles := nil; end; end; if FShowDialog then MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) else MError := MapiSendMail(0, AppHandle, MapiMessage, 0, 0); case MError of MAPI_E_USER_ABORT: begin if Assigned(FOnUserAbort) then FOnUserAbort(Self); end; SUCCESS_SUCCESS: begin if Assigned(FOnSuccess) then FOnSuccess(Self); end else begin if Assigned(FOnMapiError) then FOnMapiError(Self, MError); end; end; finally { В заключение освобождаем память } FreeMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc)); end; end; end.

---

Ответ отправлен: 03.05.2003, 04:59
Отправитель: markamer

---

Отвечает vitya

Добрый день, Flipper!
Эх... не хорошие вещи задумываешь.
Берешь пишешь поток (наследуешь от TThread), который соединится с помощью сокетов к нужному майл серверу на 21 порт (СМТП), потом реализует протокол СМТП (рфц821, если не ошибаюсь) и пошлет письмо.
Есть вариант и проще: используй компонент TSMTP или как он там называется, я пару лет не трогал дельфи :) :)
А никто тебе не отвечает, так как не любит народ нехорошие вещи :) :)

---

Ответ отправлен: 03.05.2003, 09:36
Отправитель: vitya

---

Вопрос № 621

У меня такой вопрос - мне надо сделаь перехват нажатия клавиши
PrintSreen в Windows, или просто говоря чтобы по нажатии PrintSreen
срабатывала некая подпрогра, нужно чтобы подпрогра выполнялась
один раз при каждом нажатии на клавишу даже если зажать кнопку.

---

Вопрос отправлен: 03.05.2003, 08:40
Отправитель: Infarh
[Следующий вопрос >>] [Список вопросов]

---

Отвечает markamer

Доброе время суток, Infarh!
Тут небольшой пример.
В нем регестрируется HotKey
И если будет нажата, то выведется GotIt

Приложение:
type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} const id_SnapShot = 101; procedure TForm1.WMHotKey (var Msg : TWMHotKey); begin if Msg.HotKey = id_SnapShot then ShowMessage('GotIt'); end; procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Form1.Handle, id_SnapShot, 0, VK_SNAPSHOT); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey (Form1.Handle, id_SnapShot); end;

---

Ответ отправлен: 03.05.2003, 09:11
Отправитель: markamer

---

Вопрос № 622

Где можно найти табличку с функциями по переводу типов?
Или напишите плиз!

---

Вопрос отправлен: 03.05.2003, 15:26
Отправитель: Кирилл
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Stein

Добрый день, Кирилл!
Какую табличку? Типа IntToStr? Тогда выдели в Delphi любую функцию и нажми F1. В справке найдёшь много таких же в разделе SeeAlso.

---

Ответ отправлен: 03.05.2003, 21:01
Отправитель: Stein

---

Отвечает noname

Добрый день, Кирилл!
KULIBA.CHM - там подобраны некоторые спецефические алгоритмы.
Есть стандарты:
IntToStr, StrToInt, PChar, trunc, FloatToStr, str

---

Ответ отправлен: 03.05.2003, 19:25
Отправитель: noname

---

Вопрос № 624

Здравствуйте, господа Эксперты!
У меня есть программы с базой данных, которая содержит,
например, данные для заполнения формы ПД-4. Вопрос:
через что мне лучше распечатать эти данные т.е.
начертить форму, заполнить определенные графы и соответственно распечатать эту форму.
Если ответ будет чз MS Word or Excel, то пожалуйста скинте мне на ящик доки или укажите ссылку на материал, а то в инете толком ничего не нашел.
С уважением, Алексей.

Приложение:
Заранее спасибо.

---

Вопрос отправлен: 03.05.2003, 20:24
Отправитель: Alan (ASoftService@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Stein

Здравствуйте, Alan!
А что, через Quick Report никак?

---

Ответ отправлен: 03.05.2003, 20:56
Отправитель: Stein

---

---

Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (37) C / C++ (29) Perl (7) Delphi (14) Pascal (26) Basic / VBA (10) Java / JavaScript (10) PHP (6) MySQL / MSSQL (5)

Пользователю Windows 95/98/Me (33) Windows NT/2000/XP (27) "Железо" (25) Поиск информации (12)

Администратору Windows NT/2000/XP (16) Linux / Unix (9)

Юристу Гражданское право (8) Семейное право (4) Трудовое право (5) КоАП (4)

Отправить вопрос всем экспертам выбранной рассылки.

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование

© 2003 Россия, Москва. Авторское право: RusFAQ.ru

---

http://subscribe.ru/ E-mail: ask@subscribe.ru

Отписаться Убрать рекламу

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}