Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Командная строка


Страницы:   1 2

chuxlo ©   (2016-04-02 18:22:00) 

В программе нужно принимать параметры командной строки.В цикле используя paramCount считываю значения переменных (ParamStr(n)).При запуске из Delphi заполнив строку параметров все их получаю в программе.При запуске в реале (т.е ассоциирую свою программу с mp3 файлами) выделяю группу файлов и передаю в программу
в программе получаю в параметрах только один файл.Куда копать?

QAZ   (2016-04-04 17:04:00) [1]

правильный ответ в [8], так работает в часности сама дельфя
дмк вообще не понял о чем речь, не трать на него время

chuxlo   (2016-04-04 00:22:00) [2]

Dmk! Сейчас буду пробовать. Ответ будет завтра.Благодарю Dmk за участие в теме.

Dmk   (2016-04-04 00:19:00) [3]

У меня просто для списка фалов свой класс написан. Там параметров больше.
Замени мой класс на TStringList и все. Будет тебе счастье.

Dmk   (2016-04-04 00:17:00) [4]

Процедура FileExists:

function FileExist64(FileName: string): boolean;
var
 lpFD: _WIN32_FIND_DATAW;
 lpH: THandle;

begin
 lpH := FindFirstFile(PWideChar(FileName), lpFD);

 if lpH = INVALID_HANDLE_VALUE then
   Result := False else
   Result := True;

 if Result then
 begin
   //Файл не должен быть директорией или устройством
   //Также не может быть скрыт
   if (lpFD.dwFileAttributes = FILE_ATTRIBUTE_ARCHIVE) or
      (lpFD.dwFileAttributes = FILE_ATTRIBUTE_NORMAL) then else Result := False;
 end;

 WinApi.Windows.FindClose(lpH);
end;

Dmk   (2016-04-04 00:13:00) [5]

Выкинь вариант Delphi. Он кривой.

FilesList := TStringList.Create;
ParseParamStr(FilesList);

//Если есть строка параметров, то откроем файлы
if FilesList.GetCount <> 0 then OpenMyFiles(FilesList);

//Список больше не нужен
FilesList.Free;


В процедуре разборки строки замени AFiles.AddRecord(lpS); на FilesList.Add(lpS);

chuxlo   (2016-04-03 23:25:00) [6]

В событии onShow формы
...
var
n:integer;
begin
for n:=1 to paramCount do
listbox1.items.add(paramStr(n));
end;
...
В системе ассоциирую файлы mp3 с моей программой.Выделяю в Windows группу
mp3 и открываю их.В результате моя программа выводит имя только одного файла.Как получить выделенную группу.

Dmk   (2016-04-03 23:17:00) [7]

Как передавал? Куда? Код покажи.

chuxlo   (2016-04-03 22:47:00) [8]

Dmk! Проверил правда не весь код, а часть при помощи ShowMessage вывел
lpComLine и получил только один файл, хотя передавал в программу выделенную группу.

Dmk   (2016-04-03 22:28:00) [9]

>с предложенным тобой
Я ничего не предлагал. Просто поделился от доброты душевной.

chuxlo   (2016-04-03 22:11:00) [10]

Dmk! Сейчас буду разбираться с предложенным тобой. Ответ будет завтра.

Dmk   (2016-04-03 21:51:00) [11]

Там используется процедура FileExist64. Надеюсь сможешь сам реализовать?
Для сведения: я вообще не программист.

Dmk   (2016-04-03 21:48:00) [12]

>[10] Бедный. Почитать доку лень.

Массив должен быть инициализирован до входа в процедуру.
Надеюсь сможешь под себя модифицировать.

procedure ParseParamStr(var AFiles: TFilesList);
var
 lpI: integer;
 lpComLine: string;
 lpComLen: integer;
 lpPos: integer;
 lpNDQ: integer;
 lpChar: char;
 lpZeroStr: string;
 lpNextStr: string;
 lpS: string;
 lpEndLen: integer;
 lpZB: boolean;

const
 lcDQ = #34;//"
 lcSQ = #39;//'
 lcBadChars: set of AnsiChar = [ #34, #39];

 function CharPossible(AChar: char): boolean;
 begin
   Result := not (CharInSet(AChar, lcBadChars));
 end;

begin
 lpComLine := GetCommandLine;
 lpComLen := Length(lpComLine);

 //Отладка
 //InfoMessage(0, lpComLine + ' (Длина = ' + IntToStr(lpComLen) + ')');

 lpNDQ := 0;
 lpPos := 0;
 lpZB := False;

 //Извлекаем нулевой параметр
 //Признак начала и конца нулевого параметра - двойные кавычки -> "ZeroStr"
 for lpI := 1 to lpComLen do
 begin
   lpChar := lpComLine[lpI];
   if lpChar = lcDQ then
   begin
     Inc(lpNDQ);
     lpZB := not lpZB; //Включим флаг открытых скобок
   end;

   //Длина нулевого параметра с кавычками
   //Потребуется для дальнейшего разбора строки
   Inc(lpPos);

   //Если скобка открыта
   if lpZB then
   begin
     //и символ не равен кавычкам
     if (lpChar <> lcSQ) and (lpChar <> lcDQ) then
       lpZeroStr := lpZeroStr + lpChar; //Извлекаем нулевую строку
   end;
   //Выйдем из цикла в конце нулевого параметра
   if (lpChar = lcDQ) and (lpZB = False) then Break;
 end;//for

 //Проверим на первый пробел
 lpChar := lpComLine[lpPos + 1];
 if lpChar = MSG_SPACE then Inc(lpPos, 2); //Начальная позиция остатков строки параметров

 //Следующая строка.
 //Может состоять из нескольких параметров
 lpNextStr := MSG_EMPTY;
 lpEndLen := 0;

 //Копируем остаток для дальнейшего разбора
 for lpI := lpPos to lpComLen do
 begin
   lpChar := lpComLine[lpI];
   lpNextStr := lpNextStr + lpChar;
   Inc(lpEndLen);
 end;

 lpS := MSG_EMPTY;
 //Разбираем остатки строки
 //с проверкой на присутствие файла
 for lpI := 1 to lpEndLen do
 begin
   lpChar := lpNextStr[lpI];

   if lpI = lpEndLen then
   begin
     //Последний символ
     if CharPossible(lpChar) then lpS := lpS + lpChar;
     if FileExist64(lpS) then
     begin
       AFiles.AddRecord(lpS);
       Break;
     end;
   end;

   //Если пробел, то возможно это конец параметра
   //Проверим есть ли такой файл
   if lpChar = MSG_SPACE then
   begin
     //Если файл есть, то добавим его в список файлов
     if FileExist64(lpS) then
     begin
       AFiles.AddRecord(lpS);
       lpS := MSG_EMPTY;
     end
     else
     begin
       //Иначе продолжаем разбирать строку
       if CharPossible(lpChar) then lpS := lpS + lpChar;
     end;
   end //if lpChar = MSG_SPACE
   else
   begin
     if CharPossible(lpChar) then lpS := lpS + lpChar;
   end;
 end;//while
end;

chuxlo   (2016-04-03 18:06:00) [13]

Dmk ! Проблема не в том, что я не могу разобрать командную строку.Вместо группы выделенных файлов я получаю один-разбирать нечего.

Dmk   (2016-04-03 14:00:00) [14]

>Leonid Troyanovsky ©   (03.04.16 09:56) [8]
Да понятно. Просто непонятно что сложного в разборе строки состоящей из двойных и одинарных скобок. Я бы выложил, но не хочется халяву разводить. Там головой подумать час времени максимум. У меня 100+ файлов открывается без проблем, хоть с командной строки, хоть с WM_DROPFILES.

Leonid Troyanovsky   (2016-04-03 09:56:00) [15]


> Dmk ©   (03.04.16 00:13) [7]

> Что за ....

ТС хочет получать группу файлов от проводника.
Т.е., что-то вроде http://delphimaster.net/view/4-1102448133

--
Regards, LVT.

Dmk   (2016-04-03 00:13:00) [16]

Что за .... Процедура парсинга командной строки пишется за час с отладкой. Максимум 2-3 для новичка. Какие мютексы?!?!?

chuxlo   (2016-04-02 20:35:00) [17]

Благодарю Pavia.Есть информация буду пережевывать.

Pavia   (2016-04-02 20:27:00) [18]

Проводник запускает несколько программ.
В каждой программе передаётся по оному файлу. Ваш код создаёт именованный мьютекс. Мьютекс создаёт тот кто первый запустился остальные проверяют есть он или нет. Если нет то он первый.
Если есть используем межпроцессный обмен данными IPC. Наиболее популярным является через проецируемый файл. Но в вашем случае почтовый ящик лучше подойдёт.
https://ru.wikipedia.org/wiki/Межпроцессное_взаимодействие

Передаём через этот ящик в главную программу свои параметры.
Далее когда получено подтверждение получения. Лишние копии закрываются остается только первая, она же основная.

И учтите что при создании мьютекса есть ряд особенносий описанных в примечаниях.
https://msdn.microsoft.com/ru-ru/library/windows/desktop/ms682411(v=vs.85).aspx

chuxlo   (2016-04-02 20:08:00) [19]

Хорошо буду думать в этом направлении.Но неужели при выделении 50 mp3 откры
вается 50 экземпляров WinAmp

Dimka Maslov   (2016-04-02 19:59:00) [20]


> Не думаю, что это выход


Венда поступает именно так - она открывает несколько экземпляров.

Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо