Вверх ↑
Ответов: 176
Рейтинг: 12
#1: 2006-11-22 22:26:10 ЛС | профиль | цитата
Помогите пожалуйста

Вот на этой схемке

Add(Zipper,2776267,539,504)
{
ZipFileName="file.zip"
Method=3
link(BasePath,1196626:Var,[])
}
Add(Hub,1469232,357,497)
{
OutCount=5
link(onEvent2,2776267:doCreate,[])
link(onEvent3,1911160:doData,[(418,517)(418,468)])
link(onEvent4,2776267:doCompress,[])
link(onEvent5,2776267:doClose,[])
}
Add(DoData,1911160,448,462)
{
Data=String(File.txt)
link(onEventData,2776267:doOrder,[(506,468)(506,517)])
}
Add(Button,6550692,273,497)
{
Left=100
Top=65
Width=50
Caption="ZIP"
link(onClick,1469232:doEvent1,[])
}
Add(Dir,11183407,546,392)
{
}
Add(Memo,16136932,434,238)
{
Left=225
Top=125
Width=140
Height=185
}
Add(Button,13641208,259,273)
{
Left=100
Top=125
Width=110
Caption="Сохранить текст"
link(onClick,15455197:doExecute,[])
}
Add(SDialog,15455197,315,273)
{
link(onExecute,16136932:doSave,[])
}
Add(Debug,1196626,546,462)
{
link(Data,11183407:CurrentDir,[])
}

компонент Zipper не хочет узнать BasePatch, когда создаёт архив.
Проблемма следующая: если сохранить текст введённый в редакторе например на C:\ ,то Zipper будет думать, что его BasePatch это и есть C:\ и соответственно создаёт архив на C:\

Пробовал так

Add(Zipper,2776267,574,448)
{
Method=3
link(ZipFileName,3297165:GetData,[])
}
Add(Hub,1469232,392,441)
{
OutCount=5
link(onEvent1,396063:doStrCat,[(440,447)(440,356)])
link(onEvent2,2776267:doCreate,[])
link(onEvent3,1911160:doData,[(453,461)(453,412)])
link(onEvent4,2776267:doCompress,[])
link(onEvent5,2776267:doClose,[])
}
Add(DoData,1911160,483,406)
{
Data=String(File.txt)
link(onEventData,2776267:doOrder,[(541,412)(541,461)])
}
Add(Button,6550692,308,441)
{
Left=100
Top=65
Width=50
Caption="ZIP"
link(onClick,1469232:doEvent1,[])
}
Add(Dir,11183407,518,294)
{
}
Add(Memo,16136932,469,182)
{
Left=225
Top=125
Width=140
Height=185
}
Add(Button,13641208,294,217)
{
Left=100
Top=125
Width=110
Caption="Сохранить текст"
link(onClick,15455197:doExecute,[])
}
Add(SDialog,15455197,350,217)
{
link(onExecute,16136932:doSave,[])
}
Add(StrCat,396063,518,350)
{
Str2="file.zip"
link(onStrCat,3297165:doData,[])
link(Str1,11183407:CurrentDir,[])
}
Add(EventFromData,3297165,574,350)
{
}

- RunTime Error

[size=-2]------ Добавлено в 22:26
?
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0