Robby
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
deeperman
алгоритм твоих действий примерно такой:
сначала тебе нужно определить соответсвия, т.е. какая миниатюра соотвествует какой флешке. Лучше всего дать им одинаковые имена, например file1.jpg, file1.swf и file1.ext, file2.jpg, file2.swf и file2.ext и т.д.
Заполнить объект ThumbList
После этого тебе нужно получить индекс выделенной миниатюры OnSelect объекта ThumbList
Код:
tblSelected = ThumbList.GetSelectedItems(this);
-- далее свойства выделенной миниатюры
tblInfo = ThumbList.GetItemInfo (this, tblSelected [1]);
-- заменить расширение файла
file_swf = String.Mid(tblInfo.filename, String.ReverseFind(tblInfo.filename, ".") + 1, -1).."swf"; -- имя флэш файла
-- либо так
file_swf = tblInfo.filetitle..".swf"; -- имя флэш файла
file_ext = String.Mid(tblInfo.filename, String.ReverseFind(tblInfo.filename, ".") + 1, -1).."ext"; -- имя копируемого файла
-- либо
file_ext = tblInfo.filetitle..".ext"; -- имя копируемого файла
-- Загрузить флэш в объект Flash
Flash.Load("Flash1", "AutoPlay\\Flash\\"..file_swf, true);
|
Действие на кнопку "Копировать"
Код:| File.Copy("AutoPlay\\EXT\\"..file_ext, _DesktopFolder.. "\\Kоллекция", false); |
Добавлено:
Vadim0211
пример:
Код: connected = HTTP.TestConnection("http://fivt2010.my1.ru/", 20, 80, nil, nil);
if connected then
HTTP.Download("http://fivt2010.my1.ru/Updates/Menu_Kusya/Version.txt", _TempFolder.."\\Version.txt", MODE_TEXT, 20, 80, nil, nil, nil);
Label.SetText("Label1", TextFile.ReadToString(_TempFolder.."\\Version.txt"));
else
Label.SetText("Label1", "Нет соединения с сервером");
end |
Только у тебя там файл в кодировке юникод, придется его конверировать в ANSI либо после загрузки либо файл сразу создавать в кодировке ANSI |
Дружественная тема в Варезнике
