Вверх ↑
Этот топик читают: Гость
Ответов: 26
Рейтинг: 2
#31: 2010-05-19 15:21:59 ЛС | профиль | цитата

Add(Message,4546415,154,140)
{
}
Add(ComboBox,386815,392,133)
{
Left=5
Top=60
Width=130
Height=21
Text="Выбор семестра"
DataType=1
Point(Index)
}
Add(ComboBox,5472134,434,84)
{
Left=5
Top=35
Width=295
Height=21
Text="ВЫБЕРИТЕ СПЕЦИАЛЬНОСТЬ"
link(onClick,8527249:doGetString,[(475,97)(475,125)])
}
Add(DSC_Query,2286760,308,77)
{
SQL="SELECT * FROM kod_spec"
DSManager="ole_driver_1"
link(onQuery,6117405:doSeparateMT,[])
link(onError,5488964:doWork,[])
}
Add(DSC_Query,11383542,308,133)
{
SQL="SELECT semestr FROM semestr"
DSManager="ole_driver_1"
link(onQuery,386815:doAdd,[])
link(onError,16551569:doWork,[])
}
Add(ListBox,8621915,595,189)
{
Left=10
Top=105
Width=290
Height=185
Point(onDblClick)
Point(String)
link(onDblClick,2617980:doString,[(639,209)(639,244)(422,244)(422,279)])
}
Add(Button,13182915,357,196)
{
Left=140
Top=60
Width=160
Caption="Список дисциплин"
link(onClick,15511926:doEvent1,[])
}
Add(DSC_Query,12748335,511,203)
{
DSManager="ole_driver_1"
link(onQuery,8621915:doAdd,[(562,209)(562,195)])
link(onError,2844919:doWork,[])
}
Add(FormatStr,9954367,462,203)
{
Mask="SELECT nazv_discipliny FROM uchebplan WHERE (semestr=%1)AND(kod_specialnosti=%2)"
Point(FString)
link(onFString,12748335:doQuery,[])
link(Str1,4571684:Var3,[(468,191)])
link(Str2,8527249:String,[(475,166)(510,166)])
}
Add(Hub,15511926,399,196)
{
link(onEvent1,8621915:doClear,[])
link(onEvent2,9954367:doString,[])
}
Add(StrList,8527249,483,77)
{
Point(doGetString)
Point(String)
}
Add(MT_MultiData,6117405,392,77)
{
link(onData1,8527249:doAdd,[])
link(onData2,5472134:doAdd,[])
}
Add(LineBreakEx,16551569,350,147)
{
Caption="Err"
}
Add(LineBreakEx,5488964,350,91)
{
Caption="Err"
}
Add(LineBreakEx,2844919,553,217)
{
Caption="Err"
}
Add(LineBreakEx,7787128,91,140)
{
Caption="Err"
Type=1
link(OnEvent,4546415:doMessage,[])
}
Add(MainForm,2168072,35,63)
{
Left=20
Top=105
Width=327
Height=338
Caption="ТЕСТИРОВАНИЕ"
Position=1
link(onCreate,16623492:doStrCat,[])
}
Add(StrCat,16623492,91,77)
{
Str2="testirov.mdb"
link(onStrCat,9254242:doString,[])
link(Str1,10635900:Var2,[])
}
Add(FormatStr,9254242,133,77)
{
DataCount=1
Mask="Driver={Microsoft Access Driver (*.mdb)};\r\nDriverID=25;\r\nDBQ=%1;"
Point(FString)
link(onFString,14418542:doOpen,[])
}
Add(DS_ODBC,14418542,182,77)
{
Name="ole_driver_1"
Point(onError)
link(onCreate,8649259:doEvent1,[])
link(onError,10334579:doWork,[])
}
Add(Hub,8649259,273,77)
{
link(onEvent1,2286760:doQuery,[])
link(onEvent2,11383542:doQuery,[(297,90)(297,139)])
}
Add(LineBreakEx,10334579,231,84)
{
Caption="Err"
}
Add(Memory,13750998,91,21)
{
Default=String(c:\оля\)
}
Add(FileTools,12914608,483,266)
{
link(onEnd,1324292:doExec,[])
}
Add(WinExec,1324292,546,266)
{
FileName="c:\оля\user\tester32.exe"
}
Add(FormatStr,2617980,434,273)
{
DataCount=4
Mask="'%1\tester32\Специальности\\%2+\\%3\%4\\TEST.cfg"
link(onFString,12914608:doCopy,[])
link(Str1,10635900:Var3,[(440,61)])
link(Str2,5472134:String,[])
link(Str3,4571684:Var2,[])
link(Str4,8621915:String,[(461,253)(622,253)])
}
Add(GetDataEx,4571684,448,186)
{
Angle=3
link(Data,386815:String,[(405,191)])
}
Add(GetDataEx,10635900,91,56)
{
link(Data,13750998:Value,[])
}

Tad ткни носом туда, где надо исправить и как. мне так проще будет понять что я делаю не так
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#32: 2010-05-19 20:51:06 ЛС | профиль | цитата
Вот этот файл (в прицепе) разархивируй в свой C:Оля ester32
Открой его в HiAsm и откомпилируй.
testirovanie.exe должен появиться в C:Оля ester32
Запускай его оттуда и работай.


------------ Дoбавленo в 20.51:
После того как составишь свои тесты по специальностям и семестрам и предметам, соединишь FormatStr с doCopy и можно что-то делать дальше
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1testirovanie.rar [1.6KB] [75]
Голосовали:Master
Ответов: 26
Рейтинг: 2
#33: 2010-05-19 21:55:44 ЛС | профиль | цитата
спасибо! буду разбираться
------------ Дoбавленo в 21.55:
это FormatStr у которого 4 строки с doCopy?
а при этом Fstring с NewFileName не надо соединять?

и по какому принципу ставятся двойные слэши?

а для
'%1\tester32\Специальности\\%2+\\%3\%4\\subject\*.sbj
использовать DirToos?
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#34: 2010-05-19 22:39:38 ЛС | профиль | цитата
Master писал(а):
и по какому принципу ставятся двойные слэши?

Главное окно
Раздел "Примечания", пункт 1-й

карма: 22

0
Ответов: 26
Рейтинг: 2
#35: 2010-05-20 07:39:32 ЛС | профиль | цитата
code_18385.txt
почемуто FileTools на команду копи не реагирует, а на команду делит выдает ошибку, при использовании DirTools тоже ошибка "не удается скопировать файл. Не удается произвести чтение с файла или диска."
Что у меня опять не так?
карма: 0

0
файлы: 1code_18385.txt [4.9KB] [91]
Гость
Ответов: 17029
Рейтинг: 0
#36: 2010-05-20 08:35:41 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 20:44:42
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#37: 2010-05-20 08:56:13 ЛС | профиль | цитата
Выше - это я.
Master, ты хоть немного думать можешь ?

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 26
Рейтинг: 2
#38: 2010-05-20 12:46:29 ЛС | профиль | цитата
допустим я запихну в другие папки тестовые файлы из исходной папки, разве программа не должна их скопировать из одного места в другое? или для проверки работоспособности программы все равно надо забить все директории до отказа?

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#39: 2010-05-20 13:06:00 ЛС | профиль | цитата
Одну, хотя-бы, заполни и тренируйся.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 26
Рейтинг: 2
#40: 2010-05-22 16:43:21 ЛС | профиль | цитата
нашел причину проблемы....
оказывается что путь к файлу слишком длинный...(с:оля ester32специальности"сама специальность""курс""предмет"subjects)
как ни будь можно сделать чтоб DirTools справлялся с такой вложенностью или можно только уменьшить количество вложенностей?
карма: 0

0
Ответов: 3851
Рейтинг: 159
#41: 2010-05-22 16:55:52 ЛС | профиль | цитата

как-то странно кавычки стоят. попробуй только в начале и конце..
если создавать (пардон тему не всю читал), то DirTools вроде может сразу создать весь путь..
карма: 0
начавший
0
Ответов: 16884
Рейтинг: 1239
#42: 2010-05-22 17:36:55 ЛС | профиль | цитата

открываем windows.h и видим: #define MAXPATH 256 
Master писал(а):
с:оля\tester32специальностиспециальностькурспредметsubjects

чёто не верится, что тут больше 256 символов.
А у Оли её прога работала нормально? ?
А кто не дает каталог "специальности" переименовать в "testy" и т.д.
Скорее грешить можно на русские символы в путях, на отсутствие двойных слешей, там где без них HiAsm никак.
И т.д.

------------ Дoбавленo в 17.36:
Master

С:ОляTester32СпециальностиЭкономика и управление на предприятии (туризма и гостиничного хозяйства)+9Анализ и диагностика финансово-хозяйственной деятельности предприятияTEST.cfg
Вот твой самый длмнный путь = 185 знаков, но :
1. Где ты взял папку с + в наименовании специальности.
2. Читай внимательно про двойные слеши.

И нафига тебе DirTools - у тебя все папки готовы и создавать папки не нужно.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 26
Рейтинг: 2
#43: 2010-05-22 17:38:49 ЛС | профиль | цитата
в ошибке указывается что слишком длинное имя файла, если путь сокращаю то копирует...
(Олина работала и работает в этом плане нормально)
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#44: 2010-05-22 18:11:06 ЛС | профиль | цитата
Master писал(а):
в ошибке указывается что слишком длинное имя файла
не вникал.
У меня таких проблем никогда не бывает - нет у меня дурацких имен (типа папки с именем "Физ. воспитание").
------------ Дoбавленo в 18.11:

 Mask="'%1\tester32\Специальности\\%2+\\%3\%4\\TEST.cfg"
Еще раз спрашиваю: Где взял вот этот плюс %2+\\%3
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 26
Рейтинг: 2
#45: 2010-05-22 18:12:44 ЛС | профиль | цитата
понятия не имею) этот + ты написал)
а я его в проге удалил) и как то все равно контачит(
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)