DLL, type RECORD, как передать данные в него?

[Человек_Борща]

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

Вот код:

const
  VER1_IS_VER2 = 0; //Версия на сервере совпадает с версией клиента
  VER1_MORE_VER2 = 1; //Версия на сервере новее чем версия у клиента
  VER1_LESS_VER2 = 2; //Версия клиента старше чем версия на сервере
  CHECK_SUCCSESS = 1;
  CHECK_FAILED = 0;

type
  TChkVerSession = record
    CheckResult: Integer;
    Log: TStrings;
  end;

function HTTPCheckVersion(aURL, aClientVersion: string; aServAnswer: TChkVerSession): Integer;
const
  Ini_Section = 'Server';
  Ini_Value = 'Version';
var
  ini: TiniFile;
  ts: TStringList;
  TmpFile: string;
  TmpDirBuff: array[0..MAX_PATH - 1] of Char;
  ServVersion: string;
  ClientVersion: string;
begin
  aServAnswer.Log.Add('Инициализация...');
  aServAnswer.Log.Add('Запращиваемая ссылка: ' + aURL);
  ClientVersion := aClientVersion;
  aServAnswer.Log.Add('Версия клиента: ' + ClientVersion);
  GetTempPath(MAX_PATH - 1, @TmpDirBuff);
  aServAnswer.Log.Add('Временная папка: ' + StrPas(@TmpDirBuff));
  TmpFile := IncludeTrailingPathDelimiter(StrPas(@TmpDirBuff)) + 'Upd.dat';
  aServAnswer.Log.Add('Временной файл: ' + TmpFile);
  ts := TStringList.Create;
  try
    if HttpGetText(aURL, ts) then
    begin
      aServAnswer.Log.Add('Данные успешно получены!');
      Result := CHECK_SUCCSESS;
      ts.SaveToFile(TmpFile);
      ini := TIniFile.Create(TmpFile);
      try
        aServAnswer.Log.Add('Проверка структуры ini...');
        if ini.SectionExists(Ini_Section) then
        begin
          //Секция существует
          if ini.ValueExists(Ini_Section, Ini_Value) then
          begin
            //Параметр существует
            ServVersion := ini.ReadString(Ini_Section, Ini_Value, '0.0.0.0');
            aServAnswer.Log.Add('Версия на сервере: ' + ServVersion);
            aServAnswer.CheckResult := CompareVersions(ServVersion, ClientVersion);
          end
          else
          begin
            aServAnswer.Log.Add('Отсутствует ключ "' + Ini_value + '" в секции "' + Ini_Section + '"');
          end;
        end
        else
        begin
          aServAnswer.Log.Add('Отсутствует секция "' + Ini_Section + '"');
        end;
      finally
        FreeAndNil(ini);
      end;

      if FileExists(TmpFile) then
      begin
        DeleteFile(TmpFile);
      end;
    end
    else
    begin
      Result := CHECK_FAILED;
      aServAnswer.Log.Add('Не удалось получить данные с сервера...');
    end;
    aServAnswer.Log.Add('Конец сессии');
  finally
    FreeAndNil(ts);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ChkSes: TChkVerSession;
begin
  ChkSes.Log := Memo1.Lines;
  case HTTPCheckVersion(Edit1.Text, Edit2.Text, ChkSes) of
    CHECK_SUCCSESS:
      begin
        case ChkSes.CheckResult of
          VER1_IS_VER2: ShowMessage('0');
          VER1_MORE_VER2: ShowMessage('1');
          VER1_LESS_VER2: ShowMessage('2');
        end;
      end;

    CHECK_FAILED:
      begin
        ShowMessage('ERROR');
      end;
  end;
end;

Отладчиком посмотрел, что на этапе:

            aServAnswer.Log.Add('Версия на сервере: ' + ServVersion);
//возвращаем результат сравнения версий
            aServAnswer.CheckResult := CompareVersions(ServVersion, ClientVersion);

Успешно передаётся 1 из констант ver1_*(Один из результатов сравнения версий)

Но когда прыгаем обратно в код кнопки:

    CHECK_SUCCSESS:
      begin
        case ChkSes.CheckResult of
          VER1_IS_VER2: ShowMessage('0');
          VER1_MORE_VER2: ShowMessage('1');
          VER1_LESS_VER2: ShowMessage('2');
        end;
      end;

ChkSes.CheckResult на пару миллионов больше чем константы ver1_*
Что я не так делаю?

ChkSes.Log - успешно транслируется в Memo1.Lines. А ChkSes.CheckResult передаётся не верно...

Все это пака VCL(тест. проект), в дальнейшем вынесу в DLL, что можете по поводу этого подсказать? Какие "фишки" меня там ждут?

Заранее благодарен...

[Пепел Феникса]

дык структуры не обьекты же, у вас передается в процедуру копия структуры, а не ссылка на нее.

[Человек_Борща]

Сообщение от Пепел Феникса

дык структуры не обьекты же, у вас передается в процедуру копия структуры, а не ссылка на нее.

Опять 25...

Можно ссылку на чтонибуть по поводу этих "ссылок"?

[Пепел Феникса]

а тут просто, объекты хранятся по ссылкам, структуры хранятся как есть(если не указатель)
поэтому в вашем случае нужна ссылка на структуру, то есть var-параметр.

PS: у меня понимание всего этого больше пошло от С++/АСМ, чем от Делфи.
да и не читал я особо ничего.