[serega6531]

Итак, вот в чём заключается проблема. Задумал я сделать лаунчер для майнкрафта. Написал код для проверки md5, процесс запускается, но окно программы не появляется. Ошибок при компиляции не возникает. Вот сам код:

Код:

begin
LauncherVer:=1;
appdata:=GetSpecialFolderPath(CSIDL_APPDATA);
RootDir:='.happyminers';
  files[1]:='bin\minecraft.jar';
  files[2]:='bin\lwjgl_util.jar';
  files[3]:='bin\lwjgl.jar';
  files[4]:='bin\jinput.jar';
  files[5]:='bin\natives\jinput-dx8.dll';
  files[6]:='bin\natives\jinput-dx8_64.dll';
  files[7]:='bin\natives\jinput-raw.dll';
  files[8]:='bin\natives\jinput-raw_64.dll';
  files[9]:='bin\natives\lwjgl.dll';
  files[10]:='bin\natives\lwjgl64.dll';
  files[11]:='bin\natives\OpenAL32.dll';
  files[12]:='bin\natives\OpenAL64.dll';
  files[13]:='mods\matmos_packaged.zip';
  files[13]:='mods\mod_worldeditcui_1.5.1_01_lite_mc1.5.1.litemod';
  files[14]:='additonal.zip';

  while (count < 15) do
begin
FilesFullPatch[count]:=appdata + '\' + RootDir + '\' + files[count];
end;
end;

Виновата вот эта строка:

Код:

while (count < 15) do
begin
FilesFullPatch[count]:=appdata + '\' + RootDir + '\' + files[count];
end;

Если её убрать, то всё нормально работает. Подскажите, как решить эту проблему.

[poli-smen]

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

Виновата вот эта строка:

Код:

while (count < 15) do
begin
FilesFullPatch[count]:=appdata + '\' + RootDir + '\' + files[count];
end;

Если её убрать, то всё нормально работает. Подскажите, как решить эту проблему.

Что-то я не понял где у тебя в этом цикле меняется значение переменной count? Ведь если переменная count будет меньше 15, то это же будет бесконечный цикл? Или я что-то не понял?

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

Код:

  count := 0;
  while (count < 15) do
  begin
    FilesFullPatch[count]:=appdata + '\' + RootDir + '\' + files[count];
    inc(count);
  end;

И че, реально запускает из любой папки его?
Интересует портэйбл вариант.

[serega6531]

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

Код:

  count := 0;
  while (count < 15) do
  begin
    FilesFullPatch[count]:=appdata + '\' + RootDir + '\' + files[count];
    inc(count);
  end;

И че, реально запускает из любой папки его?
Интересует портэйбл вариант.

Нет, сам лаунчер ещё разрабатывается. Там будет проверка по md5, загрузка собственных файлов и т.д.

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

Смысл от проверки?
У меня например в minecraft.jar натолкана приблуда дающая доступ ко всем возможным блокам (All items вроде зовется).
Т.е. если я скачаю твой лончер, я не смогу запустить свой майн?

[serega6531]

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

Смысл от проверки?
У меня например в minecraft.jar натолкана приблуда дающая доступ ко всем возможным блокам (All items вроде зовется).
Т.е. если я скачаю твой лончер, я не смогу запустить свой майн?

Вобще это лаунчер для моего сервера. Хеши берутся с сайта. Но если хочешь я могу сделать версию для тебя без проверки хешей. Но смысл от такого лаунчера без сервера? А тот мод называется Too Many Items.

[serega6531]

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

Что-то я не понял где у тебя в этом цикле меняется значение переменной count? Ведь если переменная count будет меньше 15, то это же будет бесконечный цикл? Или я что-то не понял?

Да, спасибо, в этом и была проблема. Но теперь при нажатии кнопки Играть программа уходит в "Не отвечает". Может у меня где то ещё бесконечный цикл? Почему то не могу приложить исходники, так что скачайте их тут
http://happyminers.ru/launcher.rar

[poli-smen]

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

Да, спасибо, в этом и была проблема. Но теперь при нажатии кнопки Играть программа уходит в "Не отвечает". Может у меня где то ещё бесконечный цикл? Почему то не могу приложить исходники, так что скачайте их тут
http://happyminers.ru/launcher.rar

Есть подозрение на эту процедуру:

Код:

procedure IsSetFiles();
var
  count: integer;
  FilesIsSet: Array [1 .. 14] of boolean;
begin
  count := 1;
  While (count < 15) do
  begin
    if FileExists(FilesFullPatch[count]) then
    begin
      count := count + 1;
      FilesIsSet[count] := true;
    end
    else
      FilesIsSet[count] := false;
  end;
  ShowMessage(BooleanToStr(FilesIsSet[13]));
end;

Здесь если очередной файл существует - то всё нормально (счётчик увеличивается), если же файла не существует, то опять попадаем в бесконечный цикл, так как в ветке else счётчик не изменяется.

[Alegun]

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

...при нажатии кнопки Играть программа уходит в "Не отвечает"...

Так будет логичнее

Код:

procedure IsSetFiles();
var count: integer;
    FilesIsSet: Array[1..14] of boolean;
begin
count:=1;
While (count < 15) do
begin
FilesIsSet[count]:=FileExists(FilesFullPatch[count]);
inc(count);
end;
ShowMessage(BooleanToStr(FilesIsSet[13]));
end;

З.Ы. И ещё, хорошо бы массив Files задать при объявлении, так проще

Код:

var

...

Files:Array[1..1{4}5] of string = (
  'bin\minecraft.jar',
  'bin\lwjgl_util.jar',
  'bin\lwjgl.jar',
  'bin\jinput.jar',
  'bin\natives\jinput-dx8.dll',
  'bin\natives\jinput-dx8_64.dll',
  'bin\natives\jinput-raw.dll',
  'bin\natives\jinput-raw_64.dll',
  'bin\natives\lwjgl.dll',
  'bin\natives\lwjgl64.dll',
  'bin\natives\OpenAL32.dll',
  'bin\natives\OpenAL64.dll',
  'mods\matmos_packaged.zip', // ошибка -> 13
  'mods\mod_worldeditcui_1.5.1_01_lite_mc1.5.1.litemod', // -> 13, одно из двух
  'additonal.zip');
...

[serega6531]

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

Так будет логичнее

Код:

procedure IsSetFiles();
var count: integer;
    FilesIsSet: Array[1..14] of boolean;
begin
count:=1;
While (count < 15) do
begin
FilesIsSet[count]:=FileExists(FilesFullPatch[count]);
inc(count);
end;
ShowMessage(BooleanToStr(FilesIsSet[13]));
end;

Спасибо всем. Теперь вопрос номер 3.
Как узнать, есть ли в текстовой строке пробелы? Гугл не помог.

[poli-smen]

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

Спасибо всем. Теперь вопрос номер 3.
Как узнать, есть ли в текстовой строке пробелы? Гугл не помог.

Код:

if Pos(' ', ТекстоваяСтрока)>0 then ShowMessage('Пробелы в строке есть') else ShowMessage('Пробелов в строке нет')

[serega6531]

Идём дальше. Мне нужно сделать подключение к php странице и оттуда получить id сессии. Как это сделать?
Подключаться надо к auth.php

PHP код:

<?php
define('INCLUDE_CHECK',true);
require_once 'functions.php';
include ("connect.php");
$login=$_POST['user'];
$password=$_POST['password'];
$ver=$_POST['version'];

        if(getGameInfo('launcher') == $ver){

            $result = mysql_query("SELECT $db_columnPass FROM $db_table WHERE $db_columnUser='$login'") or die ("Запрос к базе завершился ошибкой."); //извлекаем из базы все данные о пользователе с введенным логином
                $myrow = mysql_fetch_array($result);

            $realPass = $myrow[$db_columnPass];

                if (checkPass($realPass,$password)) 
                {
                    $sessid = generateSessionId();
                    $gamebuild=getGameInfo('build');

                    mysql_query("UPDATE $db_table SET $db_columnSesId='$sessid' WHERE $db_columnUser = '$login'") or die ("Запрос к базе завершился ошибкой.");

                    $dlticket = md5($login);
                    echo $gamebuild.':'.$dlticket.':'.$login.':'.$sessid.':';
                }
            else {
                echo "Bad login";
                }
        }
        else{
            echo 'Old version';
            }
?>

Файл с функциями functions.php

PHP код:

<?php
if(!defined('INCLUDE_CHECK')) die('У вас нет прав на выполнение данного файла!');

function generateSessionId(){
    // generate rand num
    srand(time());
    $randNum = rand(1000000000, 2147483647).rand(1000000000, 2147483647).rand(0,9);
    return $randNum;
}

function getGameInfo($type){
    include ("connect.php");
    switch($type){
    case 'build':
        $query = mysql_query("SELECT * FROM $db_GameDatatable WHERE $db_Propertycolumn = 'latest-game-build'") or die ("Запрос к базе завершился ошибкой.");    
            $resource = mysql_fetch_array($query);
            return $resource[$db_Valuecolumn];
    break;

    case 'launcher':
        $query = mysql_query("SELECT * FROM $db_GameDatatable WHERE $db_Propertycolumn = 'launcher-version'") or die ("Запрос к базе завершился ошибкой."); 
            $resource = mysql_fetch_array($query);
            return $resource[$db_Valuecolumn];
    break;

    }
}

function checkPass($realPass,$password){
            if (strlen($realPass) == 32)
            {
                $cp = md5($password);
            }
            else {
                if(strpos($realPass,'$SHA$') !== false)
                {
                    $ar = preg_split("/\\$/",$realPass);
                    $salt = $ar[2];
                    $cp = '$SHA$'.$salt.'$'.hash('sha256',hash('sha256',$password).$salt);
                }
                else
                {
                    $saltPos = (strlen($password) >= strlen($realPass) ? strlen($realPass) : strlen($password));
                    $salt = substr($realPass, $saltPos, 12);
                    $hash = hash('whirlpool', $salt . $password);
                    $cp = substr($hash, 0, $saltPos) . $salt . substr($hash, $saltPos);
                }
            }
            
            if ($realPass==$cp) {
                return true;
            }
            else {
                return false;
            }
}
?>

connect.php просто соединяет с базой данных
Буду очень благодарен если вы мне поможете.

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

Одна тема - один вопрос (см. правила форума).