Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Схемы"
Ответов: 2
Рейтинг: 0
#1: 2019-08-21 14:14:21 ЛС | профиль | цитата
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=1141
Height=462
Caption="Почта.ru"
Position=1
}
Add(SMTP,2722764,357,196)
{
Server="smtp.gmail.com"
Port=587
Point(Login)
Point(Password)
link(onStatus,8894008:doMessage,[(411,209)(411,314)])
link(From,16337319:Text,[(370,156)(202,156)])
link(To,3374901:Text,[(377,187)(328,187)])
link(Subject,11664598:Text,[(384,180)(377,180)])
link(Login,3158724:Var3,[(398,184)(232,184)(232,418)])
link(Password,4127264:Var3,[(405,184)(259,184)(259,425)])
}
Add(Edit,3374901,322,140)
{
Left=5
Top=30
Width=1120
Text="Кому (только на Гугл почту)"
}
Add(Edit,16337319,196,77)
{
Left=5
Top=5
Width=1115
Enabled=1
Text="От кого"
link(Str,3158724:Var1,[(202,65)(83,65)])
}
Add(Edit,11664598,371,133)
{
Left=5
Top=60
Width=1115
Height=115
Text="Тема"
ClearAfterEnter=1
}
Add(hcMessage,8894008,448,308)
{
Message="Состояние"
}
Add(LED,1140784,35,203)
{
Left=5
Top=205
}
Add(Button,5052816,105,273)
{
Left=30
Top=205
Width=65
Height=25
Caption="Обновить"
}
Add(DoData,16342031,203,336)
{
Data=String(0)
}
Add(DoData,8917610,203,378)
{
Data=String(1)
}
Add(POP3,5854498,84,476)
{
Server="smtp.gmail.com"
Point(onError)
link(onConnect,9066166:doEvent1,[])
link(onRead,1813509:doAdd,[(184,489)(184,468)])
link(Login,14556206:Var2,[(97,440)(62,440)])
link(Password,4127264:Var2,[(104,438)(110,438)])
link(onError,14312092:doEvent1,[(131,496)(131,538)])
}
Add(Label,15792650,112,210)
{
Left=495
Top=205
Width=119
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption="Войти на почту"
}
Add(Edit,3804312,56,371)
{
Left=5
Top=235
Width=200
Text="Логин"
link(onChange,16337319:doText,[(142,377)(142,83)])
}
Add(Edit,13613937,104,368)
{
Left=5
Top=265
Width=200
Text="Пароль"
Password=0
}
Add(Button,7868437,0,476)
{
Left=5
Top=295
Width=200
Caption="Войти"
link(onClick,6710006:doEvent1,[])
}
Add(ComboBox,6871866,168,476)
{
Left=615
Top=260
Width=125
Height=21
Text="Входящие письма"
link(onClick,5854498:doRead,[(212,489)(212,477)(65,477)(65,489)])
}
Add(Hub,9066166,126,476)
{
link(onEvent1,6871866:doAdd,[])
link(onEvent2,2551076:doWork2,[(152,489)(152,513)(152,513)])
}
Add(Hub,6710006,42,476)
{
OutCount=3
link(onEvent1,5854498:doConnect,[])
link(onEvent2,1912334:doWork1,[(66,489)(66,531)])
link(onEvent3,9753806:doEnabled,[(154,496)(154,258)])
}
Add(ChildForm,1912334,77,525)
{
}
BEGIN_SDK
Add(EditMulti,5185116,21,21)
{
WorkCount=2
link(doWork1,1297934:doVisible,[(35,27)(35,139)])
link(doWork2,1297934:doClose,[(35,34)(35,132)])
}
Add(MainForm,1297934,49,105)
{
Left=35
Top=105
Width=318
Height=74
Visible=1
Caption="Загрузка"
BorderStyle=8
Position=1
Point(doVisible)
}
Add(Label,15586718,56,49)
{
Left=5
Width=297
Height=29
Font=[MS Sans Serif,15,1,0,1]
Caption="Загрузка писем. Подождите"
}
END_SDK
Add(ChildForm,11686228,84,574)
{
}
BEGIN_SDK
Add(EditMulti,335189,21,21)
{
WorkCount=3
link(doWork1,3836568:doVisible,[(117,27)(117,83)(37,83)(37,139)])
link(doWork2,3836568:doClose,[(35,34)(35,132)])
link(doWork3,1529112:doText,[(39,41)(39,55)])
}
Add(MainForm,3836568,49,105)
{
Left=35
Top=105
Width=318
Height=74
Visible=1
Caption="Загрузка"
BorderStyle=8
Position=1
Point(doVisible)
}
Add(Label,1529112,56,49)
{
Left=5
Width=297
Height=29
Font=[MS Sans Serif,15,1,0,1]
Caption=""
}
END_SDK
Add(Hub,14312092,154,532)
{
OutCount=4
link(onEvent1,11686228:doWork1,[(180,538)(180,559)(72,559)(72,580)])
link(onEvent2,14262990:doData,[(180,545)(180,594)(37,594)(37,643)])
link(onEvent3,2432134:doTimer,[])
link(onEvent4,1136644:doTimer,[(180,559)(180,577)(156,577)(156,594)])
}
Add(HubEx,15676232,63,532)
{
link(onEvent,1912334:doWork2,[])
}
Add(Timer,1136644,168,588)
{
Interval=4000
Enable=1
AutoStop=1
link(onTimer,11686228:doWork2,[(212,594)(212,590)(72,590)(72,587)])
}
Add(HubEx,7730852,84,507)
{
Angle=2
link(onEvent,15676232:doWork2,[(65,513)(65,538)])
}
Add(Timer,2432134,217,546)
{
Interval=1
Enable=1
AutoStop=1
link(onTimer,2551076:doWork3,[(261,552)(261,534)(109,534)])
}
Add(HubEx,2551076,105,507)
{
Angle=2
link(onEvent,7730852:doWork2,[])
}
Add(DoData,14262990,49,637)
{
Data=String(Произошла ошибка)
link(onEventData,11686228:doWork3,[(83,643)(83,594)])
}
Add(Memo,1813509,259,462)
{
Left=290
Top=230
Width=225
Height=160
}
Add(Button,9753806,252,252)
{
Left=5
Top=180
Width=1115
Enabled=1
Caption="Отправить"
Point(doEnabled)
link(onClick,2722764:doSend,[(310,258)(310,202)])
}
Add(GetDataEx,14556206,56,413)
{
link(Data,3804312:Text,[])
}
Add(GetDataEx,4127264,104,420)
{
link(Data,13613937:Text,[])
}
Add(GetDataEx,3158724,77,413)
{
Angle=3
link(Data,14556206:Var3,[])
}

--- Добавлено в 2019-08-21 14:15:47

Ошибка при входе в систему, он просто зависает и всё помогите пожалуйста

Редактировалось 1 раз(а), последний 2019-08-21 14:15:47
2.3.2. Максимальный размер изображений или видео без спойлера не должен превышать по большей стороне 600 пикселей.

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 3944
Рейтинг: 622
#2: 2019-08-21 14:39:36 ЛС | профиль | цитата
Компонент SMTP не поддерживает работу через SSL (smtps). Ищи на форуме варианты.
карма: 19

0
Ответов: 2
Рейтинг: 0
#3: 2019-09-08 11:13:46 ЛС | профиль | цитата
Netspirit, А подробнее.
карма: 0

0
Главный модератор
Ответов: 2705
Рейтинг: 355
#4: 2019-09-08 13:18:29 ЛС | профиль | цитата
Подробнее
карма: 8
Дорогу осилит идущий. HiAsm.NET is based on HiAsm 5
0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)