Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Два вопроса, JvGIFAnimator1 и полный путь проги 
:(
    Опции темы
M@100DON
Дата 23.8.2007, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 27.7.2007

Репутация: нет
Всего: нет
Накопал JVCL и теперь немогу отобразить GIF в JvGIFAnimator, помогите я признаюсь- незнаю его функции!
И второй вопрос: как узнать и задать в программе путь где лежит программа?
Помогите!   
PM MAIL   Вверх
Snowy
Дата 23.8.2007, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
Модератор: Пожалуйста, один топик - один вопрос.
PM MAIL   Вверх
Rennigth
Дата 23.8.2007, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
Цитата(M@100DON @  23.8.2007,  18:02 Найти цитируемый пост)
Накопал JVCL и теперь немогу отобразить GIF в JvGIFAnimator, помогите я признаюсь- незнаю его функции!

Не сталкивался.

Цитата(M@100DON @  23.8.2007,  18:02 Найти цитируемый пост)
И второй вопрос: как узнать и задать в программе путь где лежит программа?

В каком смысле задать?
Узнать можно:
Код

ExtractFilePath(ParamStr(0));





--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
M@100DON
Дата 23.8.2007, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 27.7.2007

Репутация: нет
Всего: нет
Ну у меня в программе находятся зависимые пути к папке файлов! Можно ли как нить написать в проге штобы она сама узнавала папку где она лежит и создавала нужную папку в своей директории?
PM MAIL   Вверх
Sanchezzz
  Дата 23.8.2007, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
можно 
для создания папки
Код

function CreateDirEx(Dir: string): Boolean;
var
  I, L: Integer;
  CurDir: string;
begin
  if ExcludeTrailingBackslash(Dir) = '' then
  exit;
  Dir := IncludeTrailingBackslash(Dir);
  L := Length(Dir);
  for I := 1 to L do
  begin
    CurDir := CurDir + Dir[I];
    if Dir[I] = '\' then
    begin
      if not DirectoryExists(CurDir) then
        if not CreateDir(CurDir) then
          Exit;
    end;
  end;
  Result := True;
end;
// пример CreateDirEx(ExtractFilePath(ParamStr(0))+'Temp\'); создаем где программа папку temp





Это сообщение отредактировал(а) Sanchezzz - 23.8.2007, 20:14


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
M@100DON
Дата 23.8.2007, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 27.7.2007

Репутация: нет
Всего: нет
С помощью этой процедуры папка тамп создаётся в папке где лежит прога?
PM MAIL   Вверх
Sanchezzz
  Дата 23.8.2007, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
да...
ExtractFilePath(ParamStr(0)) - это где находится программа... 
функция создаст несколько директорий за рас если есть то не создаем в обшем надо было проверить о потом критиковать если не пашет...
кс в 2006 он ругается на этот код но работает а в 2005 нормально...
//---------------
а насчет JvGIFAnimator1 загружать то файл надо JvGIFAnimator1.Image.LoadFromFile('C:\1.gif');


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
M@100DON
Дата 23.8.2007, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 27.7.2007

Репутация: нет
Всего: нет
Цитата(Sanchezzz @ 23.8.2007,  18:59)

//---------------
а насчет JvGIFAnimator1 загружать то файл надо JvGIFAnimator1.Image.LoadFromFile('C:\1.gif');


А еси у меня все картинки находятся в ListBoxe?

А еси у меня все картинки находятся в ListBoxe?
PM MAIL   Вверх
Sanchezzz
Дата 23.8.2007, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60

поиск файлов ..

Код

procedure TForm1.ScanDir(Path,Mask: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + Mask, faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         FileList.Add(SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

пример использования 
Код

ScanDir(ExtractFilePath(ParamStr(0))+'temp\','*.gif',ListBox1.Items);//ишим все файлы в папке temp где программа и заносим в listbox.. 
 

клик по листбокс
Код

var
i:integer;
begin
i:=listbox1.ItemIndex;
image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'temp\'+listbox1.Items.Strings[i]);
end;




Это сообщение отредактировал(а) Sanchezzz - 23.8.2007, 21:20


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
M@100DON
Дата 24.8.2007, 08:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 27.7.2007

Репутация: нет
Всего: нет
При нажатии на Listbox'e выскакивет ошибка 'List index out of bounds (1001)'. Кто знает чё за баг?
PM MAIL   Вверх
Sanchezzz
  Дата 24.8.2007, 23:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
мда.....

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  ______.rar 26,48 Kb


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1225 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.