Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
1

Проблема в том что я не знаю как передать их opendiolog значения для attach,ent

05.04.2012, 19:46. Просмотров 378. Ответов 0
Метки нет (Все метки)


Добрый день!
Дорогие форумчане прошу помочь!
Заранее спасибо.
Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP, IdAntiFreezeBase, IdAntiFreeze, IdAttachment;
 
type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Edit3: TEdit;
IdAntiFreeze1: TIdAntiFreeze;
Button3: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
s : string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
 
IdAttachment1:TIdAttachment;
 
begin
 
idsmtp1.Host:='smtp.mail.ru';
idsmtp1.Port:=25;
idsmtp1.Username:=Edit1.Text;
idsmtp1.password:=Edit2.Text;
idmessage1.Body.text:=Memo1.text;
idmessage1.from.text:=Edit1.Text;
idmessage1.Recipients.emailaddresses:=Edit3.Text;
 
IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,s);
 
idmessage1.subject:=Edit3.Text;
idsmtp1.Connect();
 
if idsmtp1.connected
then
 
idsmtp1.Send(idmessage1);
idsmtp1.disconnect;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
Close;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 
if OpenDialog1.Execute
then
begin
s := OpenDialog1.FileName;
end;
 
end;
 
end.
вообщем проблема в том что я не знаю как передать их opendiolog значения для attach,ent? чтобы можно было почту с файлом отправлять, трабл в этом
из*
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2012, 19:46
Ответы с готовыми решениями:

Скиньте пожалуйсто толковую литературу по графике Проблема в том, что как нарисовать знаю, а вот как заставить двигаться - не могу понять.
Доброго времени суток! Скиньте пожалуйсто толковую литературу по графике Проблема в том, что как...

Ошибка в программе в том что якобы не возвращает значение Rand и я не знаю как ее убрать
#include <iostream> #include <cstdlib> #include <ctime> using namespace std; int pr(int* x);...

Как из поля Attach передать рисунок в другое поле
У меня есть на форме поле Attach которое содержит рисунки(прикрепленные), мне нужно эти рисунки...

Строку с методом подчеркивает и говорит о том, что не переданы аргументы. Как их передать в метод?
метод таков: void Fraction :: Control(int &denominator, int &numerator) { if (denominator ==...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2012, 19:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Функция сохраняет кое что в бинарник, но проблема в том что указатель на файл все время оказывается пустой
у меня функция сохраняет кое что в бинарник, но проблема в том что указатель на файл все время...

проблема с эдитом(верней у мя, - что я не знаю)
друзья, приведствую вас)))! помогите с маленькой проблемкой ))) суть вот в чем: запускается...

Проблема в том, что MessageBox не правильно работает!
{ public partial class Form1 : Form { public List<string> qa = new...

Проблема в том что не выводит полученный вектор
Задание : В целочисленном векторе vectorn найти второй по порядку отрицательный и предпоследний...

Создать класс Date для работы с датами в формате "год.месяц.день".Проблема заключается в том, что когда вожу числа больш
Проблема заключается в том, что когда вожу числа больше 50 НЕ добавляется месяц. ...

Не знаю что с компьютером, проблема с ОЗУ или материнкой
Сегодня встал как обычно утром, сел за компьютер, лежала старая 8гб ОЗУ Кингстон, решил проверить,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.