Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2006-10-18 22:17:03 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-22 08:56:17
карма: 0

0
Ответов: 632
Рейтинг: 16
#2: 2006-10-19 21:55:50 ЛС | профиль | цитата
а так нелегче?
Add(MainForm,514400,168,112)
{
Left=20
Top=105
Width=191
Height=106
}
Add(Button,4241060,168,175)
{
Left=15
Top=35
link(onClick,10092667:doShellExec,[])
}
Add(WinExec,10092667,217,168)
{
link(FileName,4806465:Text,[])
}
Add(Edit,4806465,217,112)
{
Left=15
Top=5
Width=155
Text="http://www.netpanel.com"
}
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2006-10-19 22:37:36 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-22 08:56:17
карма: 0

0
Ответов: 176
Рейтинг: 12
#4: 2006-10-28 15:38:47 ЛС | профиль | цитата
Помогите пожалуйста.
Нужно сохранить текст из трёх компонентов edit в один файл. А также научить программу открывать этот файл.

Add(Edit,15248978,189,140)
{
Left=90
Top=15
}
Add(Edit,10149418,189,196)
{
Left=90
Top=40
}
Add(Edit,917545,189,252)
{
Left=90
Top=65
}
Add(Button,15721506,126,140)
{
Left=150
Top=15
Width=70
Caption="Сохранить"
}
Add(Button,14760620,126,196)
{
Left=150
Top=45
Width=70
Caption="Открать"
}
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 9906
Рейтинг: 351
#5: 2006-10-28 15:56:31 ЛС | профиль | цитата
code_499
карма: 9

0
файлы: 1code_499.txt [2.1KB] [452]
Гость
Ответов: 17029
Рейтинг: 0
#6: 2006-10-28 17:53:27 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-22 08:56:17
карма: 0

0
Ответов: 176
Рейтинг: 12
#7: 2006-10-29 16:40:57 ЛС | профиль | цитата
Весм привет. Спасибо за помошь.
У меня ещё вопросик.
Как запретить изменять текст в компоненте Edit при вводе с клавиатуры или при вставке его из буфера. Только не свойством enabled.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 8908
Рейтинг: 823
#8: 2006-10-29 17:02:52 ЛС | профиль | цитата
toropchin, а зачем тогда Edit?
Add(Edit,16096901,189,105)
{
Left=110
Top=60
Width=125
Text="Не изменять!"
link(onChange,16096901:doText2,[(231,111)(231,95)(179,95)(179,118)])
link(Str,5241898:Value,[])
}
Add(Memory,5241898,189,49)
{
Default=String(Не изменять!)
}
карма: 19

0
Ответов: 176
Рейтинг: 12
#9: 2006-10-29 17:21:45 ЛС | профиль | цитата
Оказывается очень просто. Спасибо!
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 242
Рейтинг: 5
#10: 2006-10-29 17:34:57 ЛС | профиль | цитата
Add(Edit,14533317,357,182)
{
Left=355
Top=60
Text="Не изменять!"
ReadOnly=0
}
А так еще прощще
карма: 0

0
Ответов: 8908
Рейтинг: 823
#11: 2006-10-29 19:47:30 ЛС | профиль | цитата
Михаил, не полностью выполнена задача:
Add(Edit,6875541,189,98)
{
Left=185
Top=95
Width=90
Text="Не изменять"
ReadOnly=0
}
Add(Button,5920846,133,98)
{
Left=110
Top=95
Data=String(Изменилось!)
link(onClick,6875541:doText,[])
}
карма: 19

0
Ответов: 242
Рейтинг: 5
#12: 2006-10-30 14:31:25 ЛС | профиль | цитата
А не проще ли тогда сделать так?
Add(Edit,6875541,350,119)
{
Left=185
Top=95
Width=90
Text="Не изменять"
ReadOnly=0
}
Add(Button,5920846,294,119)
{
Left=110
Top=95
Data=String(Изменилось!)
}

карма: 0

0
Ответов: 176
Рейтинг: 12
#13: 2006-11-04 14:09:00 ЛС | профиль | цитата
Имеется вот такая схемка

Add(MainForm,10000708,63,350)
{
Left=20
Top=105
link(onCreate,8135534:doEvent1,[])
}
Add(FileStream,6082084,287,189)
{
FileName="Mydata.db"
}
Add(DataToFile,9402528,287,385)
{
Type=6
link(onGet,12561754:doText2,[(333,391)(333,195)])
link(Stream,14279364:Data1,[])
}
Add(GetData,14279364,287,245)
{
Count=3
link(Data,6082084:Stream,[])
}
Add(DataToFile,11629937,336,392)
{
Type=6
link(onGet,6274193:doText2,[(433,398)(433,139)])
link(Stream,14279364:Data2,[(342,335)(300,335)])
}
Add(Hub,8135534,203,385)
{
OutCount=4
link(onEvent1,6082084:doOpen,[(264,391)(264,195)])
link(onEvent2,9402528:doGet,[])
link(onEvent3,11629937:doGet,[])
link(onEvent4,6082084:doClose,[(268,412)(268,202)])
}
Add(DoData,5674076,679,322)
{
Data=String()
link(onEventData,11763459:doPut,[(719,328)(719,468)])
link(Data,12561754:Text,[(685,268)(391,268)])
}
Add(DoData,7965379,728,329)
{
Data=String()
link(onEventData,12509517:doPut,[(768,335)(768,468)])
link(Data,6274193:Text,[(734,244)(468,244)])
}
Add(Hub,570656,546,315)
{
OutCount=4
link(onEvent1,4919904:doOpen,[(661,321)(661,293)])
link(onEvent2,5674076:doData,[])
link(onEvent3,7965379:doData,[])
link(onEvent4,4919904:doClose,[(667,342)(667,300)])
}
Add(FileStream,4919904,791,287)
{
FileName="Mydata.db"
Mode=1
}
Add(DataToFile,11763459,728,462)
{
Type=6
link(Stream,3106721:Data1,[(734,436)(797,436)])
}
Add(GetData,3106721,791,392)
{
link(Data,4919904:Stream,[])
}
Add(DataToFile,12509517,777,462)
{
Type=6
link(Stream,3106721:Data2,[(783,436)(804,436)])
}
Add(Edit,12561754,385,182)
{
Left=80
Top=70
Width=145
Text="Сгенерированный ключ"
link(Str,14811055:Var1,[])
}
Add(Button,11410274,224,126)
{
Left=80
Top=120
Width=145
Caption="Генерировать и записать"
link(onClick,3626197:doEvent1,[])
}
Add(Edit,6274193,462,126)
{
Left=80
Top=95
Width=280
Text="Хэш md5 (сгенерированный ключ + введённый текст)"
}
Add(MultiElement,14811055,385,126)
{
@Hint=#15:Генератор ключа|
link(onEvent1,6274193:doText,[])
link(Data1,10570750:Text,[])
}
BEGIN_SDK
Add(EditMulti,11864690,3,3)
{
EventCount=1
WorkCount=1
DataCount=1
VarCount=1
Width=874
Height=725
link(doWork1,15358550:doEvent1,[(134,9)(134,377)])
link(Var1,8258096:Data1,[(9,590)(349,590)])
}
Add(StrCat,7078511,399,364)
{
link(onStrCat,1323441:doHashsum,[])
link(Str1,8258096:Data2,[(405,354)(387,354)(387,462)(356,462)])
link(Str2,11864690:Data1,[(412,184)(9,184)])
}
Add(Random,10025935,343,364)
{
Min=1000000000
Max=1410065407
link(onRandom,7078511:doStrCat,[])
}
Add(Hashsum,1323441,462,364)
{
link(onResult,11864690:onEvent1,[(685,370)(685,9)])
}
Add(GetData,8258096,343,420)
{
link(Data,10025935:Random,[])
}
Add(Hub,15358550,266,371)
{
link(onEvent1,10025935:doRandomize,[])
link(onEvent2,10025935:doRandom,[(320,384)(320,370)])
}
END_SDK
Add(Hub,3626197,308,126)
{
OutCount=3
link(onEvent1,14811055:doWork1,[])
link(onEvent2,12561754:doText,[(362,139)(362,188)])
link(onEvent3,570656:doEvent1,[(353,146)(353,321)])
}
Add(Edit,10570750,385,70)
{
Left=80
Top=45
Width=145
Text="Сюда ввести любой текст"
}

Подскажите как корректно прочитать из файла текст поля edit где написано сгенерированный ключ.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 9906
Рейтинг: 351
#14: 2006-11-04 15:16:53 ЛС | профиль | цитата
code_531
карма: 9

0
файлы: 1code_531.txt [3KB] [417]
Ответов: 176
Рейтинг: 12
#15: 2006-11-05 19:28:42 ЛС | профиль | цитата
А можно ли зашифровать файл 1.txt вот вэтой схемке
Add(MainForm,9634844,217,483)
{
Left=20
Top=105
Width=204
Height=140
}
Add(Edit,15248978,378,399)
{
Left=20
Top=15
}
Add(Edit,10149418,476,392)
{
Left=20
Top=40
}
Add(Edit,917545,574,385)
{
Left=20
Top=65
}
Add(Button,15721506,266,497)
{
Left=80
Top=15
Width=70
Caption="Сохранить"
link(onClick,7425424:doEvent1,[])
}
Add(Button,14760620,217,392)
{
Left=80
Top=45
Width=70
Caption="Открыть"
link(onClick,5501651:doEvent1,[])
}
Add(DataToFile,283745,623,504)
{
Type=6
link(Stream,12821301:Var3,[(629,492)])
}
Add(Hub,7425424,322,497)
{
OutCount=5
link(onEvent1,7712973:doOpen,[(360,503)(360,454)])
link(onEvent2,13337245:doData,[])
link(onEvent3,3735852:doData,[])
link(onEvent4,14185192:doData,[])
link(onEvent5,7712973:doClose,[(367,531)(367,461)])
}
Add(DoData,13337245,574,504)
{
link(onEventData,283745:doPut,[])
link(Data,917545:Text,[])
}
Add(DataToFile,12308372,427,518)
{
Type=6
link(Stream,12821301:Var1,[(433,492)])
}
Add(DoData,14185192,378,518)
{
link(onEventData,12308372:doPut,[])
link(Data,15248978:Text,[])
}
Add(DataToFile,7036963,525,511)
{
Type=6
link(Stream,12821301:Var2,[])
}
Add(DoData,3735852,476,511)
{
link(onEventData,7036963:doPut,[])
link(Data,10149418:Text,[])
}
Add(FileStream,7712973,525,448)
{
FileName="1.txt"
Mode=1
}
Add(GetDataEx,12821301,518,483)
{
link(Data,7712973:Stream,[])
}
Add(DataToFile,3474581,525,392)
{
Type=6
link(onGet,917545:doText2,[])
link(Stream,5281338:Var3,[(531,380)])
}
Add(FileStream,15037975,427,336)
{
FileName="1.txt"
}
Add(Hub,5501651,266,392)
{
OutCount=5
link(onEvent1,15037975:doOpen,[(307,398)(307,342)])
link(onEvent2,3474581:doGet,[])
link(onEvent3,12094597:doGet,[])
link(onEvent4,10907410:doGet,[])
link(onEvent5,15037975:doClose,[(314,426)(314,349)])
}
Add(DataToFile,12094597,427,399)
{
Type=6
link(onGet,10149418:doText2,[])
link(Stream,5281338:Var2,[(433,395)(433,395)])
}
Add(DataToFile,10907410,329,406)
{
Type=6
link(onGet,15248978:doText2,[])
link(Stream,5281338:Var1,[(335,380)])
}
Add(GetDataEx,5281338,420,371)
{
link(Data,15037975:Stream,[(433,372)(433,372)])
}
(чтобы нельзя было блокнотом править.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)