error 217

[Laserer]

Hallo liebe Freepacal & Lazarus Community. Ich bin neu hier und ich hoffe, ihr könnt mir bei meinem ersten gröberen Problem helfen, welches ich einfach nicht bewältigen kann, selbst nach stundenlanger suche mit google. Zuerst mal ein bisschen Code:

Code: Alles auswählen

program k8055;
 
{$mode objfpc}{$H+}
 
uses
        {$IFDEF UNIX}{$IFDEF UseCThreads}
                cthreads,
        {$ENDIF}{$ENDIF}
                Classes, SysUtils
        { you can add units after this };
 
var
        CardAddr : longint;
        h : longint;
        Counternumber : longint;
        pulses : longint;
        str : string;
 
function OpenDevice(CardAddr:longint) : longint; stdcall; external 'libk8055';
function ReadCounter(Counternumber:longint) : longint; stdcall; external 'libk8055';
 
begin
        CardAddr := 0;
        h:=OpenDevice(0);
        case h of
                0: writeln('Karte verbunden');
                -1: writeln('Karte nicht gefunden');
        end;
 
        pulses:=ReadCounter(1);
        str := 'Counter 1: ' + inttostr(pulses);
        writeln(str);
end.

Dieser Code spuckt bei mir unter openSUSE 10.3 (i386) folgendes aus:

Code: Alles auswählen

Karte verbunden
Runtime error 217 at $080546CD
  $080546CD
  $08054999
  $08090511

Der Runtime Error verschwindet aber interessanterweise, sobald ich die zeilen mit str:= ... und writeln(str) auskommentiere. Woran könnte das liegen?

LG

P.S.: Unter Windows funktioniert der Code übrigens einwandfrei,

[theo]

Was ist den "libk8055"?
Versuch mal cdecl statt stdcall.

[Laserer]

Entschuldigt bitte vielmals, hab völlig vergessen zu sagen, worum es hier eigentlich geht. Die libk8055 spricht ein USB-Interface Board an ( http://libk8055.sourceforge.net/" onclick="window.open(this.href);return false; ) Ich hab auch schon dafür gesorgt, dass jeder auf das Gerät zugreifen kann, sodass ich nicht jedesmal das programm mit sudo aufrufen muss

Das mit cdecl werde ich gleich ausprobieren!

mfg

[Christian]

Du versuchst unter Windows ohne Konsole auf die Konsole zuzugreifen würde ich mal tippen. Entweder du verabschiedest dich vom writeln, oder du dekativierts Compilereinstellung->Linken->Win32 GUI Anwendung

[theo]

Du versuchst unter Windows ohne Konsole auf die Konsole zuzugreifen würde ich mal tippen. Entweder du verabschiedest dich vom writeln, oder du dekativierts Compilereinstellung->Linken->Win32 GUI Anwendung

Du solltest dich mal erholen.
Erstens schreibt er openSUSE 10.3 (i386) und zweitens ist das ein Konsolenprogramm.

[Laserer]

Vielen Vielen Dank theo für deinen Hinweis, was ich nach 3 stunden googlen nicht lösen konnte, hast du mit deinem schlichten Post gelöst. Ist im Nachhinein auch völlig klar, was da passiert ist. Die Herstellerfirma liefert das Board mit einer DLL plus Dokumentation für Delphi aus. Deshalb hab ich auch überhaupt erst angefangen, für FPC zu programmieren. Jedoch gibt es kein Modul für Linux, außer eben der libk8055 von sourceforge, welche aber für C geschrieben ist. Irgendwie logisch, dass ich es dann mit einem anderen Befehl aufrufen muss, wobei mir cdecl bis dato nicht geläufig war.

Danke auch Christian für deinen Hinweis. Und du wirst lachen, aber das war vor ein paar Tagen auch ein Problem, welches ich aber zum Glück selber lösen konnte. Bin aber eben inzwischen beim Programmieren auf Linux, da das Konsolenprogramm später auf nem Server laufen soll. Trotzdem probier ich zuerst meist lieber auf WinXP herum, bevor ich es auf Linux portiere. Aber am Anfang ist mir genau das passiert. Nur ohne error 217

[Christian]

Ups... sollte mir wirklich langsam ne lesebrille zulegen was