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 |