Не получается пользоваться командной строкой

[ivt22]

i:=1;

WinExec(PAnsiChar('cmd /c png2pnm C:\GOCR\bot\1.png C:\GOCR\bot\1.pnm'), SW_HIDE); // Рабочий код

WinExec(PAnsiChar(cmd /c png2pnm C:\GOCR\bot\'+ IntToStr(i) +'.png C:\GOCR\bot\'+IntToStr(i)+'.pnm'), SW_HIDE); // нерабочий код

Подскажите плз. Первой строчкой у меня получается отправить в командную строку команду и все работает, но мне нужно 1.png и 1.pnm
каждый раз менять цифру в имени файла
Я набираю IntToStr(i); и ничего не работает, я скидывал получившуюся строку в Memo1.text и сравнивал с первым вариантом разницы нет, но одно работает, а другое нет(( Почему?

[Alex11223]

Может таки есть разница? Если в ручную запустить результат из второй строки, то что?

И я бы вместо WinExec (тем более оно deprecated) использовал ShellExecute или CreateProcess.

[Stilet]

или CreateProcess.

Поддерживаю.

[Serge_Bliznykov]

вот, когда я вижу такие посты, я сразу понимаю, что автор хочет что-то утаить.
Как он считает - что-то такое, что нам знать не обязательно..

WinExec(PAnsiChar(cmd /c png2pnm C:\GOCR\bot\'

этот код банально НЕ ОТКОМПИЛИРУЕТСЯ!
Нет открывающего апострофа перед cmd

это раз. а во-вторых.
напишите так:

var s : string;
   i : integer;
begin
  Memo1.Lines.Clear;
  s := 'cmd /c png2pnm C:\GOCR\bot\1.png C:\GOCR\bot\1.pnm';
  Memo1.Lines.Add('строка 1 = ' + s);
  WinExec(PAnsiChar(s), SW_HIDE);  
  i := 1;
  s := 'cmd /c C:\GOCR\bot\'+ IntToStr(i) +'.png C:\GOCR\bot\'+IntToStr(i)+'.pnm';
  Memo1.Lines.Add('строка 2 = ' + s);
  WinExec(PAnsiChar(s), SW_HIDE);  
  Memo1.Lines.SaveToFile('MyDebug.txt');
end;

файл MyDebug.txt запакуйте и выложите на форум архив. Будет повод для разговора.
ну и что значит "и ничего не работает". Может работает, а вы этого не видите?!

[Alex11223]

вот, когда я вижу такие посты, я сразу понимаю, что автор хочет что-то утаить.

Ну так судя по названию GOCR и bot автор скорее всего распознает капчи, так что вероятно занимается спамом/накруткой голосов или чем-то подобным неблаговидным, вот и боится "спалиться" и скрывает все подряд.

[ivt22]

Сообщение от Serge_Bliznykov

вот, когда я вижу такие посты, я сразу понимаю, что автор хочет что-то утаить.
Как он считает - что-то такое, что нам знать не обязательно..


этот код банально НЕ ОТКОМПИЛИРУЕТСЯ!
Нет открывающего апострофа перед cmd

это раз. а во-вторых.
напишите так:

var s : string;
   i : integer;
begin
  Memo1.Lines.Clear;
  s := 'cmd /c png2pnm C:\GOCR\bot\1.png C:\GOCR\bot\1.pnm';
  Memo1.Lines.Add('строка 1 = ' + s);
  WinExec(PAnsiChar(s), SW_HIDE);  
  i := 1;
  s := 'cmd /c C:\GOCR\bot\'+ IntToStr(i) +'.png C:\GOCR\bot\'+IntToStr(i)+'.pnm';
  Memo1.Lines.Add('строка 2 = ' + s);
  WinExec(PAnsiChar(s), SW_HIDE);  
  Memo1.Lines.SaveToFile('MyDebug.txt');
end;

файл MyDebug.txt запакуйте и выложите на форум архив. Будет повод для разговора.
ну и что значит "и ничего не работает". Может работает, а вы этого не видите?!

Не распознаванием капчи я не занимаюсь, это слишком трудоемко и обычными средствами стандартной GOCR не обойдешься. Если кому интересно я могу сказать чем я занимаюсь. Мне необходимо из покерного клиента считать информацию, чтобы в прямом эфире определить прибыльность моего хода, пока это можно сделать только после игры и разобрать свои ошибки, а я хочу их не совершать. Понимаю это тоже не совсем правильно и запрещено, но я просто не хотел обижать форумчан, а апостраф перед cmd я видимо забыл скопировать, на самом деле там все нормально - код компилируется, я делал так как ты просил, все сохранял в файл разницы между строками нет. Видимо проблема в том, что там строка AnsiString а я вставляю строчку IntToStr(i) может быть происходит какой-то не формат. P.S. И я точно знаю, что не работает вторая строка т.к. При первой строке при выполнении программы png2pnm появляется файл 1.PNM а при вызове второй строчки ничего не появляется, значит строчка не сработала)

[Alex11223]

Запустите вторую строку (ее результат) из консоли руками. GOCR этот никаких ошибок не пишет?

[ivt22]

вот так написал все получилось... Блин да что за фигня...

for i := 1 to 5 do begin
b:='cmd /c png2pnm C:\GOCR\bot\'+ IntToStr(i) +'.png C:\GOCR\bot\'+IntToStr(i)+'.pnm';
WinExec(PAnsiChar(b), SW_HIDE);
end;

[northener]

вот так написал

А с чего вообще было решено использовать тип PAnsiChar? Почему не PChar?

[Alex11223]

С того, что дельфи не древняя и PChar в ней не PAnsiChar, a PWideChar? А WinExec хочет PAnsiChar (в отличии от ShellExecute и CreateProcess, которые и рекомендуется использовать).