HiAsm
HiAsm
Вверх ↑
ФорумыОшибки в компонентахошибка компонента open_dialog ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 216
Рейтинг: -4
#1: 2012-01-14 17:27:39 ЛС | профиль | цитата
вот схема, если запускаемый .iso файл находиться на одном диске с программой то работает, если .iso файл расположен на другом диске то с помощью компонента browse работает а с помощью Odialog не работает. Если ту же программу с Odialog написать на дельфи то работает
code_26536.txt
карма: 0

0
файлы: 1code_26536.txt [2.3KB] [501]
Ответов: 3349
Рейтинг: 233
#2: 2012-01-14 17:51:56 ЛС | профиль | цитата 

Add(ODialog,9065136,273,448)
{
 Filter="iso|*.iso"
 Title="Выберите образ iso"
 FileName="ISO-файлы"
 Point(doStartDir)
 link(onExecute,2101751:doWork2,[])
}
Add(FormatStr,72678,364,448)
{
 DataCount=1
 Mask="-m 256 -cdrom "%1" -boot d"
 Point(FString)
 link(onFString,4038514:doMessage,[])
}
Add(Browse,9261220,273,398)
{
 BrowseObj=3
 Edit=1
 NewStyle=0
 NewDirButton=1
 link(onBrowse,2101751:doWork1,[(340,404)])
}
Add(Button,7998072,183,448)
{
 Left=6
 Top=50
 Width=125
 Caption="C ним не работает"
 link(onClick,9065136:doExecute,[])
}
Add(Button,9216284,183,398)
{
 Left=6
 Top=30
 Width=125
 Caption="С ним работает"
 link(onClick,9261220:doBrowse,[])
}
Add(HubEx,2101751,336,448)
{
 link(onEvent,72678:doString,[])
}
Add(Message,4038514,420,448)
{
}

В чем ошибка то?
------------ Дoбавленo в 17.50:
Пути абсолютно одинаковые выдаются
------------ Дoбавленo в 17.51:
Объясни конкретно проблему, так как не у всех QEMU есть, для экспериментов
карма: 1

0
Ответов: 3889
Рейтинг: 362
#3: 2012-01-14 17:51:56 ЛС | профиль | цитата
mestnyi, всё работает, приведите ПОЛНЫЕ строки (включая пробелы и т.п.), выдаваемые каждым и компонентов на "нерабочем" файле.
карма: 1

0
Ответов: 216
Рейтинг: -4
#4: 2012-01-14 18:29:59 ЛС | профиль | цитата
вот сылка в архива новая схема. проблема в том что при выборе пути Odialog компонентом qumo должен лежать в папке с выбранным iso файлом, даже если Odialog не соединен с winexeс , схема в архиве как раз не соединеная

http://upload.com.ua/get/903033799/Files.rar
------------ Дoбавленo в 18.29:
1nd1g0 писал(а):
его пути даже не соединены посмотри вторую схему
карма: 0

0
Ответов: 1731
Рейтинг: 68
#5: 2012-01-14 18:43:24 ЛС | профиль | цитата
mestnyi, используйте лучше местный файлообмен, а то смотреть порнографию не хочется.
карма: 1

0
Ответов: 216
Рейтинг: -4
#6: 2012-01-14 18:45:54 ЛС | профиль | цитата
Cosinus писал(а):
на местном больше мегабайта не идёт
карма: 0

0
Ответов: 1731
Рейтинг: 68
#7: 2012-01-14 18:57:09 ЛС | профиль | цитата
там схема на мегабайт ?

------------ Дoбавленo в 18.57:
mestnyi, а так работает ?
Add(Button,4119252,315,329)
{
 Left=140
 Top=30
 Width=145
 Height=40
 Caption="Запуск"
 link(onClick,16131930:doEvent2,[])
}
Add(Edit,4468566,462,196)
{
 Left=5
 Top=5
 Width=280
 Text="Выберите образ"
}
Add(Hub,1653830,357,196)
{
 InCount=2
 OutCount=3
 link(onEvent1,4468566:doText,[])
 link(onEvent2,72678:doString,[(417,209)(417,265)])
 link(onEvent3,16131930:doEvent1,[(392,216)(392,328)])
}
Add(Hub,16131930,413,322)
{
 InCount=2
 OutCount=1
 link(onEvent1,624012:doConsoleExec,[])
}
Add(Message,4038514,504,315)
{
}
Add(FormatStr,72678,462,259)
{
 DataCount=1
 Mask="-m 256 -cdrom "%1" -boot d"
 Point(FString)
 link(Str1,4468566:Text,[])
}
Add(Browse,9261220,280,175)
{
 BrowseObj=3
 Edit=1
 NewStyle=0
 NewDirButton=1
 link(onBrowse,1653830:doEvent1,[(334,181)(334,202)])
}
Add(Button,7998072,189,224)
{
 Left=6
 Top=50
 Width=125
 Caption="C ним не работает"
 link(onClick,5252398:doOpenDialog,[])
}
Add(Button,9216284,189,175)
{
 Left=6
 Top=30
 Width=125
 Caption="С ним работает"
 link(onClick,9261220:doBrowse,[])
}
Add(StyleXP,6843008,91,175)
{
}
Add(MainForm,2901188,91,217)
{
 Width=298
 Height=110
 Caption="Оболочка для QEMU"
 Icon=[ZIP7E03000078DAAD92314BC34014C75FE992C12183480687061C1A7030E060A083061C0C3818E860C04182A07492E020A120D249FAB9EA8710BA3864E890314387F3775CAD472D52C597CB235C7EFFFBBF7777222D1ED715B227B76D911D11E9F232251D31F33A8EDBF21F111E841B0EE0EC32ABDEAB7258AE198F65715F0CEE06F94D9E5D65693F45A2F9AAE27BFA364558CF6AA2691AF52D50191E06DEEFF8FE9E4FF6763D77DB75B61CBB66788C167CADF9F0308C8E223293413740654BE0A9CDF0B8C3276749729E90E39318E18A049E760CAFE60A9E8EF2EB455FA88C84C2BEF8E127AF142B63573C1464FA42820B7FB585A32DA8C1E6E3D378F43C1ABF8CC94870C1825E68DF94448F361FF522E0C9EB848C0B85E14849EC98AB6F8E98335AF22CF5F3FA9C8ECD07FB81DECF5E44D990E9454A0B2BC3E6D7C75CD1A63EEF59CD1DA0A4E515DA70FCE1322B25F2D4FABD4E6BB4F603C5C115BE]
 Position=1
 Point(onClose)
}
Add(VBJScript,5252398,280,224)
{
 WorkPoints=#12:doOpenDialog|
 EventPoints=#10:onFileName|8:onCancel|
 Script=#23:Sub doWork(Data, Index)|21:    Select Case Index|30:           Case "doOpenDialog"|11:           |69:            Set objDialog = CreateObject("UserAccounts.CommonDialog")|56:            objDialog.Filter = "ISO Образ(*.iso)|*.iso|"|37:            objDialog.FilterIndex = 1|40:            objDialog.InitialDir = "C:"|42:            intResult = objDialog.ShowOpen|33:            If intResult = 0 Then|30:                sys.onCancel 0|28:                Wscript.Quit|16:            Else|49:                sys.onFileName objDialog.FileName|18:            End If|14:    End Select|7:End Sub|
 UseName=0
 link(onFileName,1653830:doEvent2,[(334,230)(334,209)])
}
Add(WinExec,624012,455,308)
{
 FileName=".qemu.exe"
 Point(doConsoleExec)
 Point(onConsoleError)
 Point(doConsoleInput)
 Point(onConsoleResult)
 link(Params,72678:FString,[])
 link(onConsoleError,4038514:doMessage,[])
}
карма: 1

0
Ответов: 216
Рейтинг: -4
#8: 2012-01-14 19:16:34 ЛС | профиль | цитата
нет там qumo. Твоя схема тоже не работает. Куда можно закачать архив чтобы сам проверил.
Make(delphi)ver(4.04 build 184)
Add(Button,4119252,315,427)
{
 Left=140
 Top=30
 Width=145
 Height=40
 Caption="Запуск"
 link(onClick,8458465:doEvent1,[])
}
Add(Edit,4468566,455,287)
{
 Left=5
 Top=5
 Width=280
 Text="WinXPE.iso"
}
Add(ODialog,9065136,168,336)
{
 Filter="iso|*.iso"
 Title="Выберите образ iso"
 FileName="ISO-файлы"
 Point(doStartDir)
}
Add(WinExec,624012,455,427)
{
 FileName=".qemu.exe"
 Point(doConsoleExec)
 Point(onConsoleError)
 Point(doConsoleInput)
 Point(onConsoleResult)
 link(Params,72678:FString,[(468,401)(461,401)])
}
Add(FormatStr,72678,455,343)
{
 DataCount=1
 Mask="-m 256 -cdrom "%1" -boot d"
 Point(FString)
 link(Str1,4468566:Text,[])
}
Add(Browse,9261220,168,287)
{
 BrowseObj=3
 Edit=1
 NewStyle=0
 NewDirButton=1
}
Add(Button,7998072,78,336)
{
 Left=6
 Top=50
 Width=125
 Caption="C ним не работает"
 link(onClick,9065136:doExecute,[])
}
Add(Button,9216284,78,286)
{
 Left=6
 Top=30
 Width=125
 Caption="С ним работает"
 link(onClick,9261220:doBrowse,[(139,292)(139,293)])
}
Add(StyleXP,6843008,21,49)
{
}
Add(MainForm,2901188,70,133)
{
 Width=298
 Height=110
 Caption="Оболочка для QEMU"
 Icon=[ZIP7E03000078DAAD92314BC34014C75FE992C12183480687061C1A7030E060A083061C0C3818E860C04182A07492E020A120D249FAB9EA8710BA3864E890314387F3775CAD472D52C597CB235C7EFFFBBF7777222D1ED715B227B76D911D11E9F232251D31F33A8EDBF21F111E841B0EE0EC32ABDEAB7258AE198F65715F0CEE06F94D9E5D65693F45A2F9AAE27BFA364558CF6AA2691AF52D50191E06DEEFF8FE9E4FF6763D77DB75B61CBB66788C167CADF9F0308C8E223293413740654BE0A9CDF0B8C3276749729E90E39318E18A049E760CAFE60A9E8EF2EB455FA88C84C2BEF8E127AF142B63573C1464FA42820B7FB585A32DA8C1E6E3D378F43C1ABF8CC94870C1825E68DF94448F361FF522E0C9EB848C0B85E14849EC98AB6F8E98335AF22CF5F3FA9C8ECD07FB81DECF5E44D990E9454A0B2BC3E6D7C75CD1A63EEF59CD1DA0A4E515DA70FCE1322B25F2D4FABD4E6BB4F603C5C115BE]
 Position=1
 Point(onClose)
}
Add(Hub,8458465,364,427)
{
 link(onEvent1,72678:doString,[(416,433)(416,349)])
 link(onEvent2,624012:doConsoleExec,[(416,440)(416,447)])
}
карма: 0

0
Ответов: 1731
Рейтинг: 68
#9: 2012-01-14 19:19:57 ЛС | профиль | цитата
mestnyi писал(а):
нет не работает.

Не выдает имя файла или что ?
карма: 1

0
Ответов: 5446
Рейтинг: 323
#10: 2012-01-14 19:21:40 ЛС | профиль | цитата
mestnyi, ODialog любит переопределять текущую директорию - отсюда и проблема.
карма: 1

0
Ответов: 216
Рейтинг: -4
#11: 2012-01-14 19:25:01 ЛС | профиль | цитата
iarspider, и как с этим боротся
карма: 0

0
Ответов: 1731
Рейтинг: 68
#12: 2012-01-14 19:29:43 ЛС | профиль | цитата
mestnyi, случаем не Win7 x64 ?
карма: 1

0
Ответов: 216
Рейтинг: -4
#13: 2012-01-14 19:35:58 ЛС | профиль | цитата
Cosinus, Нет.Виндовс XP
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2012-01-14 19:38:34 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-24 08:45:07
карма: 0

0
Ответов: 3349
Рейтинг: 233
#15: 2012-01-14 19:39:38 ЛС | профиль | цитата
code_26539.txt
карма: 1

0
файлы: 1code_26539.txt [1.6KB] [537]
ФорумыОшибки в компонентахошибка компонента open_dialog ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика