[serega6531]

Доброго времени суток. Я пытаюсь обработать через PWideChar строку, которая больше, чем 2048 символов. И она обрезается. Пример:

Код:

'-Xms256m -Xmx512m...многотекста...libraries\org\apache\commons\commons-lang3\3.1\commons-lan'#$0600

Строка обрезается ровно после 2048 символа, я проверил. Почему так происходит и что делать? Почему так происходит и что делать?

[poli-smen]

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

Доброго времени суток. Я пытаюсь обработать через PWideChar строку, которая больше, чем 2048 символов. И она обрезается. Пример:

Код:

'-Xms256m -Xmx512m...многотекста...libraries\org\apache\commons\commons-lang3\3.1\commons-lan'#$0600

Строка обрезается ровно после 2048 символа, я проверил. Почему так происходит и что делать? Почему так происходит и что делать?

Не вижу причин чтобы обрезалось. Покажи в каком исходном коде это обрезание происходит.

[Freeman]

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

Строка обрезается ровно после 2048 символа, я проверил.

Если это командная строка, похоже на системное ограничение длины командной строки. Выход один -- прятать параметры в файл параметров, а в командной строке передавать только его имя.

[serega6531]

Нет, в файл нельзя. Код:

Код:

procedure ExecuteMinecraft(MinecraftData: TMinecraftData);
var
  lpDirectory, lpFile, lpParameters: PWideChar;
  si:TStartupInfo;
  pi:TProcessInformation;
begin
  with MinecraftData do
  begin
    lpDirectory := PWideChar(MinePath);
    lpParameters := PWideChar(
                               //'-Dfml.ignoreInvalidMinecraftCertificates=true -Dfml.ignorePatchDiscrepancies=true ' +
                               '-Xms' + Xms + 'm ' +
                               '-Xmx' + Xmx + 'm ' +
                               '-Djava.library.path="' + NativesPath + '" ' +
                               '-cp "' + CP + '" ' +
                               'net.minecraft.client.main.Main ' + LogonInfo
                              {
                               'net.minecraft.launchwrapper.Launch' + LogonInfo +
                               ' --tweakClass cpw.mods.fml.common.launcher.FMLTweaker'
                              }
                              );
    lpFile := PWideChar(Java + '\javaw.exe');
  end;
  ShellExecuteW(0,nil,lpFile,lpParameters,lpDirectory,SW_SHOWNORMAL);
  //CreateProcessW(PWideChar('"' + MinecraftData.Java + '\javaw.exe"'),lpParameters, nil, nil, false, NORMAL_PRIORITY_CLASS,nil, nil, si, pi);

end;

procedure PlayMinecraft(servername:string;auth:TAuthManager);
var
  FileList: TStringList;
  I: Word;
  CP: string;
  MinecraftData: TMinecraftData;
begin
  FileList := TStringList.Create;
  CheckFolder(settings.MinecraftDir+'libraries\', '*.jar', FileList);
  CheckFolder(settings.MinecraftDir+'dists\' + servername + '\', '*.jar', FileList);
  CP := '';
  for I := 0 to FileList.Count - 1 do
  begin
    CP := CP + FileList.Strings[i] + ';';
  end;
  MinecraftData.Minepath := settings.MinecraftDir;
  MinecraftData.Java := getJavaPath();
  MinecraftData.Xms := settings.MinMem;
  MinecraftData.Xmx := settings.MaxMem;
  MinecraftData.NativesPath := settings.MinecraftDir + 'dists\' + servername + '\natives';
  MinecraftData.CP := CP;
  MinecraftData.LogonInfo := '--username ' + auth.getLogin() + ' ' +
                             '--session ' + auth.getParams() + ' ' +
                             '--version 1.6.4 ';
  ExecuteMinecraft(MinecraftData);
  FreeAndNil(FileList);
  ExitProcess(0);
end;

Как раз lpParameters и обрезается.

[M.A.D.M.A.N.]

Путь до папки майнкрафта полный задается? Вроде бы можно так написать: %APPDATA%\.minecraft

[serega6531]

Не уверен, могу попробовать позже

[Alegun]

Вроде наблюдается лишнее преобразование типов, например

Код:

lpParameters := PWideChar(...);

эта переменная и так уже заявлена как указатель, попробуйте убрать общее приведение, а если это всё же необходимо относительно других переменных, то тогда лучше так

Код:

lpParameters := '-Xms' + PWideChar(Xms) + 'm '+ PWideChar(LogonInfo);

есть подозрение что косяк в этом

Добавлено позже

Плохой совет, не проверив ляпнул, извнт. Всё вроде сложнее - это одна из хреновостей делфи при работе с UNICODE. Получилось так, принимается что Xms и LogonInfo типа string

Код:

lpParameters := PWideChar('-Xms' + WideString(Xms) + 'm ' + WideString(LogonInfo));

а иначе "Suspicious typecast String to PWideChar" вылазит с обрезкой строки

[poli-smen]

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

Нет, в файл нельзя. Код:

Код:

.....
  ShellExecuteW(0,nil,lpFile,lpParameters,lpDirectory,SW_SHOWNORMAL);
  //CreateProcessW(PWideChar('"' + MinecraftData.Java + '\javaw.exe"'),lpParameters, nil, nil, false, NORMAL_PRIORITY_CLASS,nil, nil, si, pi);
.....

Как раз lpParameters и обрезается.

Похоже что такое ограничение действительно есть у ShellExecute - об этом пишет у себя в блоге Реймонд Чен.
Я только что проверил - действительно так и есть.
А вот у CreateProcess ограничение в районе 32768 (тоже проверил) - так что для обхода этого ограничения испльзуй CreateProcess вместо ShellExecute.

UPD.
А вот здесь перевод той статьи из блога Реймонда Чена.

[serega6531]

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

Получилось так, принимается что Xms и LogonInfo типа string

Код:

lpParameters := PWideChar('-Xms' + WideString(Xms) + 'm ' + WideString(LogonInfo));

а иначе "Suspicious typecast String to PWideChar" вылазит с обрезкой строки

Код:

...commons\commons-lang3\3.1\commons-lanᤀᓉᥔᓉᖚ

при

Код:

lpParameters := PWideChar(
                               //'-Dfml.ignoreInvalidMinecraftCertificates=true -Dfml.ignorePatchDiscrepancies=true ' +
                               '-Xms' + WideString(Xms) + 'm ' +
                               '-Xmx' + WideString(Xmx) + 'm ' +
                               '-Djava.library.path="' + WideString(NativesPath) + '" ' +
                               '-cp "' + WideString(CP) + '" ' +
                               'net.minecraft.client.main.Main ' + WideString(LogonInfo)
                              {
                               'net.minecraft.launchwrapper.Launch' + LogonInfo +
                               ' --tweakClass cpw.mods.fml.common.launcher.FMLTweaker'
                              }
                              );

[serega6531]

Сообщение от M.A.D.M.A.N.

Путь до папки майнкрафта полный задается? Вроде бы можно так написать: %APPDATA%\.minecraft

Не знаю, с этим строка все равно не помещается в 2048 символов.
Забыл сказать, у меня delphi XE5.

[serega6531]

Сообщение от M.A.D.M.A.N.

Путь до папки майнкрафта полный задается? Вроде бы можно так написать: %APPDATA%\.minecraft

Не знаю, с этим строка все равно не помещается в 2048 символов.
Забыл сказать, у меня delphi XE5.

[serega6531]

Сообщение от M.A.D.M.A.N.

Путь до папки майнкрафта полный задается? Вроде бы можно так написать: %APPDATA%\.minecraft

Не знаю, с этим строка все равно не помещается в 2048 символов.
Забыл сказать, у меня delphi XE5.

[serega6531]

Сообщение от M.A.D.M.A.N.

Путь до папки майнкрафта полный задается? Вроде бы можно так написать: %APPDATA%\.minecraft

Не знаю, с этим строка все равно не помещается в 2048 символов.
Забыл сказать, у меня delphi XE5.

[poli-smen]

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

Не знаю, с этим строка все равно не помещается в 2048 символов.
Забыл сказать, у меня delphi XE5.

Моё сообщение читал? Через CreateProcess пробовал?

[serega6531]

Ой, зависло и много собщений отправилось.

Сообщение от poli-smen

Моё сообщение читал? Через CreateProcess пробовал?

Функция тут не при чем. Переменная такая ещё до вызова ShellExecute.