<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=415972&amp;view=findpost&amp;p=3812207</guid>
        <pubDate>Wed, 09 Oct 2019 12:24:32 +0000</pubDate>
        <title>FibPlus x64</title>
        <link>https://forum.sources.ru/index.php?showtopic=415972&amp;view=findpost&amp;p=3812207</link>
        <description><![CDATA[tarakan1983: Здравствуйте. Использую FibPlus 7.7 и Delphi XE7.<br>
Понадобилось перекомпилировать свое приложение в Win64. Подключил все в library, все скомпилировалось, но при запуске приложения Win64 не хочет коннектиться к БД. Пишет ошибку<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
System Error.  Code: 193.<br>
%1 не является приложением Win32<br>
</div></div><br>
При запуске под Win32 все работает отлично.<br>
Вот код <br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">procedure TForm1.Button1Click(Sender: TObject);</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;try</div><div class="code_line">&nbsp;&nbsp; &nbsp;with pFIBDatabase1 do</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Connected := False;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;DBName := &#39;LOCALHOST/3050:C:\temp.fdb&#39;;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;LibraryName := &#39;c:\Program Files\Firebird\Firebird_2_5\WOW64\fbclient.dll&#39;;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;ConnectParams.CharSet := &#39;WIN1251&#39;;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;ConnectParams.UserName := &#39;SYSDBA&#39;;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;ConnectParams.Password := &#39;masterkey&#39;;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;SQLDialect := 3;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Connected := True;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp;except on E : Exception do</div><div class="code_line">&nbsp;&nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Memo1.Lines.Add(E.Message);</div><div class="code_line">&nbsp;&nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp;end;</div><div class="code_line">end;</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script><br>
Подскажите пожалуйста в чем проблема?]]></description>
        <author>tarakan1983</author>
        <category>Delphi: Базы данных</category>
      </item>
	
      </channel>
      </rss>
	