Вверх ↑
Этот топик читают: Гость
Ответов: 29
Рейтинг: 1
#1: 2012-11-15 04:31:10 ЛС | профиль | цитата
Никак не придумаю как это реализовать без помощи ODialog?
По форуму ничего не нашел, везде примеры с ODialog, что мне не подходит...

Add(StrList,4170690,350,224)
{
Point(Stream)
}
Add(Button,14305311,252,280)
{
Left=140
Top=30
Width=140
Caption="send"
link(onClick,55446:doSend,[])
}
Add(SMTP,55446,329,280)
{
From="12345@mail.ru"
To="12345@mail.ru"
Subject="12345"
Point(Attach)
link(Attach,4170690:Array,[])
}
Add(Timer,13542055,175,126)
{
Enable=1
AutoStop=1
Point(onStop)
link(onTimer,11039993:doOpen,[])
}
Add(FileSearch,45706,175,70)
{
Dir="C:"
link(onSearch,11781900:doText,[])
link(Ext,78411:Text,[])
}
Add(Edit,78411,175,21)
{
Left=5
Top=5
Width=175
Height=21
Font=[Arial,8,0,0,1]
Visible=1
Layout="panel"
Text="1q2w3e4r5t.txt"
}
Add(Case,93361,350,77)
{
Value=String()
link(onTrue,11728132:doEvent1,[(394,90)(394,108)(100,108)(100,125)])
}
Add(Edit,11781900,252,70)
{
Left=5
Top=5
Width=275
Height=21
Font=[Arial,8,0,0,1]
Layout="panel"
Text=""
link(onChange,47848:doPart,[])
}
Add(FilePart,47848,301,70)
{
ExtPoint=0
link(onName,93361:doCase,[])
}
Add(Hub,11728132,112,119)
{
link(onEvent1,45706:doStop,[(133,125)(133,83)])
link(onEvent2,13542055:doTimer,[])
}
Add(FileStream,11039993,252,126)
{
link(onLoad,1320451:doCopy,[(296,132)(296,156)(240,156)(240,181)])
link(FileName,11781900:Text,[])
}
Add(DataToFile,12881828,252,224)
{
link(onGet,4170690:doAdd,[])
link(Stream,1320451:Stream,[])
}
Add(MemoryStream,1320451,252,175)
{
link(SrcStream,11039993:Stream,[])
}
Add(Button,13388736,112,21)
{
Left=6
Top=30
Width=131
Caption="find..."
link(onClick,45706:doSearch,[(160,27)(160,76)])
}


карма: 0

1
Голосовали:Ivann
Ответов: 16884
Рейтинг: 1239
#2: 2012-11-15 09:45:05 ЛС | профиль | цитата
FileSearch
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 29
Рейтинг: 1
#3: 2012-11-16 04:07:33 ЛС | профиль | цитата
Так файл находит (см схему). Я не пойму как его добавить в список.
карма: 0

0
Ответов: 141
Рейтинг: 11
#4: 2012-11-16 09:42:42 ЛС | профиль | цитата
посмотри примеры, там все есть
карма: 0

0
Ответов: 5446
Рейтинг: 323
#5: 2012-11-16 11:36:49 ЛС | профиль | цитата
Инсульт, Фольклор HiAsm, SMTP
карма: 1

0
Ответов: 199
Рейтинг: 7
#6: 2012-11-16 16:20:37 ЛС | профиль | цитата
code_29543.txt
карма: 0

0
файлы: 1code_29543.txt [421B] [392]
Ответов: 29
Рейтинг: 1
#7: 2012-11-17 18:14:00 ЛС | профиль | цитата
CITRUS писал(а):
посмотри примеры, там все есть

Смотрел, понял, сделал, но там немного не так как мне надо.
iarspider писал(а):
Инсульт, Фольклор HiAsm , SMTP

Непонятно к чему это, как отправлять файл уже заданный в FileSearch я знаю. У меня схема немного другая. Файл собирается по имени и расширению а не по уже известному (имярасширение)
lenchik_vla писал(а):
code_29543.txt

Собственно так оно и не работает, письмо приходит без файла. Пытаюсь сделать как то иначе..
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#8: 2012-11-17 18:28:17 ЛС | профиль | цитата
Инсульт, а так ?
code_29556.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_29556.txt [1.1KB] [233]
Ответов: 85
Рейтинг: 0
#9: 2012-11-23 19:22:10 ЛС | профиль | цитата
Или так
Схема работающая
ищет exe и txt файлы по расширению в указанной и вложенных в неё директориях
Путь поиска считывается из реестра, но можете его из формы брать или находить с помощью OpenDialog
Найденные файл отправляются вложением в e-mail


Add(MainForm,2953706,21,105)
{
Width=376
Height=273
}
Add(FileSearch,14528013,266,112)
{
Ext="*.exe"
Dir="receive"
link(onSearch,3681016:doWork1,[(361,118)])
link(onEndSearch,2159002:doSearch,[(303,125)(303,173)])
link(Dir,15191831:Var1,[(279,100)(244,100)])
}
Add(FileSearch,2159002,308,167)
{
Ext="*.txt"
Dir="receive"
link(onSearch,3681016:doWork2,[])
link(Dir,15191831:Var3,[(321,141)(272,141)(272,182)])
}
Add(Registry,15380714,116,147)
{
HKey=2
Key="SOFTWAREShedull"
Value="path"
link(onRead,8039083:doPart,[(154,153)(154,146)])
}
Add(FilePartElm,8039083,161,140)
{
Mode=0
link(onPart,12254134:doValue,[(201,146)(201,144)])
}
Add(Memory,12254134,209,138)
{
Default=String()
Point(Data)
link(onData,14528013:doSearch,[(253,144)(253,118)])
}
Add(GetDataEx,15191831,238,177)
{
Angle=3
link(Data,12254134:Value,[(215,182)])
}
Add(HubEx,3681016,357,167)
{
link(onEvent,6391361:doAdd,[(391,173)(391,132)])
}
Add(Button,2268187,28,168)
{
Left=270
Top=165
link(onClick,11660196:doEvent1,[(71,174)(71,201)])
}
Add(StrList,6391361,420,126)
{
}
Add(SMTP,9514139,399,224)
{
Server="smtp.yandex.ru"
From="mymail@mail.ru"
To="vasya.pupkin@yandex.ru"
Subject="Тра ля ля"
Login="login"
Password="pass"
Point(Attach)
link(Body,12427346:Text,[(433,218)(475,218)])
link(Attach,6391361:Array,[])
}
Add(Hub,11660196,82,195)
{
link(onEvent1,15380714:doRead,[(106,201)(106,153)])
link(onEvent2,9514139:doSend,[(125,208)(125,230)])
}
Add(StrList,12427346,469,161)
{
Strings=#18:Текст письма здесь|
}


карма: 0

0
файлы: 1code_29598.txt [1.5KB] [273]
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)