Редактировалось 2 раз(а), последний 2025-01-09 15:10:21

Вот:
[code:1] Add(MainForm,7636549,-8,140)
{
Left=20
Top=105
link(onCreate,11527587:doData,[])
}
Add(FileTools,466377,90,154)
{
link(onEnd,8517690:doCase,[])
}
Add(DoData,11527587,41,175)
{
Data=String(c:\555.txt)
link(onEventData,466377:doFileExists,[(88,181)(60,181)])
}
Add(Case,8517690,146,154)
{
Value=Integer(1)
link(onTrue,8832064:doEvent1,[])
}
Add(SMTP,3309009,237,224)
{
Server=""
Subject="555.txt"
link(onSend,7955857:doEvent1,[(294,230)(294,223)])
link(onStatus,10975674:doEvent1,[(294,237)(294,258)])
link(Body,10792516:Value,[(271,212)(355,212)])
}
Add(FileStream,11039993,244,161)
{
FileName="c:\555.txt"
link(onLoad,15588259:doConvert,[])
}
Add(Convertor,15588259,300,161)
{
Mode=11
link(onResult,10792516:doValue,[])
link(Data,11039993:Stream,[(306,151)(288,151)(288,203)(250,203)])
}
Add(Memory,10792516,349,161)
{
link(onData,11039993:doClose,[(391,167)(391,151)(234,151)(234,174)])
}
Add(Hub,8832064,188,161)
{
link(onEvent1,11039993:doOpen,[])
link(onEvent2,3309009:doSend,[(224,174)(224,230)])
}
Add(HubEx,3638672,503,252)
{
link(onEvent,11905746:doProcessMessages,[(518,265)(518,272)])
}
Add(Memo,4771154,636,238)
{
Top=45
Width=195
Height=195
ScrollBars=3
}
Add(StrCat,14673886,573,224)
{
Str1="Result: "
link(onStrCat,1190450:doWork1,[(612,230)])
}
Add(HubEx,1190450,608,231)
{
link(onEvent,4771154:doAdd,[])
}
Add(Hub,10975674,314,252)
{
link(onEvent1,1190450:doWork2,[(537,258)(537,244)])
link(onEvent2,3638672:doWork2,[])
}
Add(Application,11905746,573,266)
{
}
Add(IndexToChanel,9871759,363,217)
{
link(onEvent1,12243279:doData,[(417,223)(417,202)])
link(onEvent2,12880275:doData,[(417,230)(417,244)])
}
Add(DoData,12880275,440,238)
{
Data=String(OK)
link(onEventData,13534767:doEvent2,[(484,244)(484,223)])
}
Add(DoData,12243279,440,196)
{
Data=String(FAIL)
link(onEventData,13534767:doEvent1,[(484,202)(484,216)])
}
Add(Hub,13534767,496,210)
{
InCount=2
OutCount=1
link(onEvent1,14673886:doStrCat,[(550,216)(550,230)])
}
Add(Hub,7955857,314,217)
{
link(onEvent1,9871759:doEvent,[])
link(onEvent2,3638672:doWork1,[(507,230)])
}
[/code:1]

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

Вот попробуй еще и такой пример
[code:1]Add(MainForm,15930855,21,105) {
Left=20
Top=105
Font=[MS Sans Serif,8,0,0]
link(onCreate,548573:doFileExists,[])
}
Add(FileTools,548573,84,119)
{
link(onEnd,11092264:doEvent,[])
link(FileName,13324539:Value,[])
}
Add(Memory,13324539,84,63)
{
Default=String(C:\\555.txt)
}
Add(SMTP,3561224,189,119)
{
Subject="555txt"
Point(Attach)
link(onSend,7858509:doEvent,[])
link(Body,6884290:Text,[(223,107)(153,107)])
link(Attach,1144798:Array,[])
}
Add(IndexToChanel,7858509,252,119)
{
link(onEvent1,11015001:doMessage,[(303,125)(303,104)])
link(onEvent2,7128877:doMessage,[(303,132)(303,153)])
}
Add(StrList,1144798,210,49)
{
Strings='C:\555.txt'
}
Add(IndexToChanel,11092264,133,119)
{
link(onEvent2,3561224:doSend,[(177,132)(177,125)])
}
Add(Message,7128877,322,147)
{
Message="Письмо успешно отправлено"
Caption="Сообщение"
}
Add(Message,11015001,322,98)
{
Message="Невозможно отправить письмо"
Caption="Сообщение"
}
Add(StrList,6884290,147,49)
{
Strings=' '
}
[/code:1]