[FPC] PostgreSQL i TSQLQuery.Open

Article View: pl.comp.lang.pascal

Article #93154

Back to pl.comp.lang.pascal Previous Next

#93154

From: MrDudek
Date: Fri, 18 Feb 2011 08:42

70 lines
2607 bytes

Witam

Już nie mam pojęcia gdzie szukać. Poniższy kod kompilowany fpc na
linuxie

<code>
{$mode objfpc}{$H+}

program test;

uses Classes, SysUtils, postgres, DB, SQLdb, PQConnection;

var
  C: TPQConnection;
  T: TSQLTransaction;
  Q: TSQLQuery;
begin
  C := TPQConnection.Create(nil);
  T := TSQLTransaction.Create(nil);
  Q := TSQLQuery.Create(nil);
  try
    try
      C.Hostname := 'localhost';
      C.DatabaseName := 'dbname';
      C.UserName := 'uname';
      C.Password := 'password';
      C.Transaction := T;

      T.Database := C;
      C.Open;
      writeln('C.Open');

      Q.Database := C;
      Q.Transaction := T;
      Q.SQL.Text := 'SELECT id FROM tbrand';

      Q.Open;
      writeln('Q.Open');
    except
      on E: Exception do writeln(E.Message);
    end;
  finally
    writeln('Finally 1');
    Q.Free;
    writeln('Finally 2');
    T.Free;
    C.Close;
  end;
end.
</code>

generuje następujące wyniki.

C.Open
Access violation
Finally 1
Finally 2
An unhandled exception occurred at $00147BF0 :
EAccessViolation : Access violation
  $00147BF0
  $080AC986
  $080A7E66
  $0016C917

Dla ciekawości, Q.ExecSQL działa poprawnie.
Będę wdzięczy jeśli ktoś podsunie mi jakieś sensowne pomysły.

--
Pozdrawiam
Andrzej Kosmala

Technical Details

Message-ID: <12b383c7-ce01-4feb-8f93-780c013284a7@k9g2000yqi.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!news.uni-stuttgart.de!news.belwue.de!newsfeed01.sul.t-online.de!t-online.de!feeder1-2.proxad.net!proxad.net!feeder1-1.proxad.net!198.186.190.251.MISMATCH!news-out.readnews.com!transit4.readnews.com!postnews.google.com!k9g2000yqi.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!news.uni-stuttgart.de!news.belwue.de!newsfeed01.sul.t-online.de!t-online.de!feeder1-2.proxad.net!proxad.net!feeder1-1.proxad.net!198.186.190.251.MISMATCH!news-out.readnews.com!transit4.readnews.com!postnews.google.com!k9g2000yqi.googlegroups.com!not-for-mail
From: MrDudek <office@webproject.pl>
Newsgroups: pl.comp.lang.pascal
Subject: [FPC] PostgreSQL i TSQLQuery.Open
Date: Fri, 18 Feb 2011 00:42:16 -0800 (PST)
Organization: http://groups.google.com
Lines: 70
Message-ID: <12b383c7-ce01-4feb-8f93-780c013284a7@k9g2000yqi.googlegroups.com>
NNTP-Posting-Host: 46.170.24.250
Mime-Version: 1.0
X-Trace: posting.google.com 1298018536 28979 127.0.0.1 (18 Feb 2011 08:42:16 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 18 Feb 2011 08:42:16 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: k9g2000yqi.googlegroups.com; posting-host=46.170.24.250; posting-account=er8U7QoAAACFWX2L9hAGuDvuUl3zKSNN
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13,gzip(gfe)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit