Delphi editor

[Arendt]

Hi leute

Ich hab diese seite durch googeln indekt und hab mich tierisch gefreut und zwar hab ich ein problem mit QBasic ich kann den LTP Port nicht ansprechen und mit dem Delphieditor hab ich auch eins!

Bei Qbasic is folgendes :

mein LPT port gibt direckt anch dem Hochfahren auf pins 1- 17 strom ist das normal?
Wie kann ich den mit Q-basic ansprechen ? bei Com 1 isses ja " OUT &H3FC, wert für pin

bei LTP isses doch um niergends strom drauf zu lassen "OUT &H378, 0 und für den pin 1 der ja invertiert ist "OUT &H37A, 1" oder irre ich mich da denn mit den befehlen passiert da ganix!

zu Delphi:

Ich hab mir letztens ein buch gekauft PC & Elektronik messen steuern regeln mit Delphi nur leidert kann ich die Software nicht installieren der will ne serial nur leider is da keine dabei! das ist die Borland Celphi 5 Enterprise edition könnt ihr mir da weiter helfen ? Ich hab XP Pro drauf hängt das vielleicht damit zusammen?

danke für eure antwort! :)

Arendt

[sakura]

Kannst Du mir mal bitte die ISBN zu diesem Buch geben :gruebel:

...:cat:...

[SirThornberry]

[edit=sakura] Sorry, aber keine KeyGens ;-) Mfg, sakura[/edit]

[Arendt]

Das Buch heißt :

PC & Elektronik

Messen, Steuern, Regeln mit Delphi

Verlag: Franzis'

ISBN 3-7723-4364-3

[sakura]

Tut mir leid, aber ich kann der Buchbeschreibung nicht entnehmen, daß D5E dabei ist, mag es auch nicht recht glauben.

Wende Dich mal direkt an den Verlegen (Franzis) bzw. an Borland.

...:cat:...

[Chris1986]

Zitat:

Zitat von Arendt

Hi leute

Ich hab diese seite durch googeln indekt und hab mich tierisch gefreut und zwar hab ich ein problem mit QBasic ich kann den LTP Port nicht ansprechen und mit dem Delphieditor hab ich auch eins!

Hi.
XP blockt den LPT-Port soweit ich weiß. Schau mal in die Library. Da gibts ne Lösung um den LPT anzusprechen.

MfG
Christian

[Luckie]

Nein. Unter NT ff. braucht man einen Treiber um die Hardware anzusprechen. Hier wired das gerade auch besprochen: http://www.delphipraxis.net/internal...ct.php?t=15395

[Arendt]

Doch ist drauf :

Auf CD-ROM:
Listings aller Programme
Vollständig kommentierte Programme in Borland Delphi
Treiber für die Schnittstelle
Layout und Bestückungsplan aller PCB
60 Tage Trail Version von Delphi 5 Enterprise

aber keine serial

ich sollte meine System ID an borland schicken und die geben mir dann eine Serial ....

keine ahnung was das soll!

Habt ihr ne serial gebraucht?

Arendt

[scp]

Zitat:

Zitat von Arendt

Doch ist drauf :

Auf CD-ROM:
60 Tage Trail Version von Delphi 5 Enterprise

"60 Tage Trial Version" heisst, das es eine Testversion ist, die nur 60 Tage lang funktioniert. Wenn du die Serial trotzdem haben willst, musst du dir das mit dem an Borland schicken nochmal genauer durchlesen, normalerweise ist da ein Programm dabei, mit dem du das automtaisch übers Internet erledigen kannst. Weis leider nich mehr genau, wie das war.

PS: Delphi ist kein Editor, sondern eine vollwertige Programmiersprache wie QBasic, nur um einiges aktueller und umfangreicher :-)

[Arendt]

ja aber ich kann nochnischt mal die trail installieren weil ich sonen key brauch! ich hab noch nie was mit delphi zu tun gehabt und wollt es mir hierdurch beibringen! also auch am anfang beim setup steht welches bs ich benutzen da is nur NT 4.0 , 95 und 98 .... aber nix XP also läuft es doch eigendlich garnicht oder?

Arendt

[Die Muhkuh]

Hi,

ich hab D5Pro und es läuft unter XP, dann wird es D5Ent auch machen.

Wahrscheinlich ist das so wie bei der Trail von D7Arc. Du musst auf die Borland HP dich dort anmelden, dann bekommst du ne Datei zugesendet und die muss unter XP dann "C:\Dokumente und Einstellungen\<User>\.borland\". Und dann müsste des funktionieren.

[fenni]

Hallo Arendt,

du musst dich erst kostenlos bei Borland registrieren. Da bekommst du entweder eine Datei (s. Spider) oder einen Authorization Key, den du im Setup eingeben musst.

Schau mal unter http://www.borland.com/products/down...ad_delphi.html im Bereich Previous Versions.

MfG
fenni

[JASH]

http://www.borland.com/products/down...d_delphi.html#

Kannst dir da auch die 6er oder 7er Version runterladen, musst dann nur nen registrierungsformular ausfüllen welches automatisch kommt wenn du was downloaden willst.

[EDIT]
ok, war nen bissl langsamer, aber was will man um diese uhrzeit erwarten :-D
[/EDIT]

[Arendt]

ja das versuch ich ja die ganze zeit aber es geht nicht der wil ne seriennummer aber welche ? wenn ich das fenster leer lass und nur den punkt bei delphi 5 enterprise setz kommt ein fenster wo ich mir ein R Z dingends packet laden kann aber ich bekomm kein key kein s.sniper packet garnix ....

Arendt

[MrKnogge]

Als ich hatte mal ne Trial ebenfalls Delphi 5 wenn ich mich recht erinnere,
und da kam bei der Installation ne Meldung mit ner Nr. die musste ich bei der Borland hompage angeben, und mir wurde dafür ne andere Nr gegeben, de hab ich eingegeben und alles hat gefunzt.

[flomei]

Hallo? Was soll das ganze Gelaber über Serials für D5 usw.? Er will Hilfe bei seinem Problem!!! :x

Also:
Als erstes würde ich an deiner Stelle mal hier in der Delphi-PRAXIS nach LPT oder Parallelport suchen.
Du solltest einige interessante Themen entdecken die dir helfen können. U.a. ein Tutorial von mir über das Ansteuern des LPT-Ports. Das funktioniert allerdings nur unter Win9x und ME ohne Treiber.
Willst du das ganze unter NT und aufwärts laufen lassen dann empfehle ich dir folgende DLL: www.geekhideout.com/iodll.shtml Die find ich super (ist kostenlos und bietet alles was man braucht...)

MfG Florian :hi:

[supermuckl]

unter NT gehts auch ohne treiber

[Arendt]

hm... ok danke aber des prob mit serial würde mich auch mal interesieren warum ich da nix bekommen hab

arendt

[flomei]

Zitat:

Zitat von supermuckl

unter NT gehts auch ohne treiber

Wie denn das? :gruebel:
Zugriffe auf Schnittstellen sind unter NT-Systemen Treibern vorbehalten. Da hilft der Inline-Asm der bei der 9x und ME Schiene funktioniert nämlich auch nichts...

MfG Florian :hi:

[Arendt]

so hab die datei von der seite geladen und wohin muss ich die dll einfügen? ich kann net so besonders gut english deshalb frag ich lieber

arendt

[flomei]

Ins system32 Verzeichnis glaub ich... :gruebel:
Guck auch mal weiter auf der Seite. Unten steht wie man die in Delphi benutzt... Hast du auch die richtige DLL runtergeladen und nicht eine von den C++ DLL´s oder so?

MfG Florian :hi:

[Arendt]

weis einer wo genau ich die dll für den lpt port einfügen muss ?

danke :) arendt

[scp]

Zitat:

Zitat von Arendt

weis einer wo genau ich die dll für den lpt port einfügen muss ?

danke :) arendt

Ich weisst zwar nicht warum du die Frage wiederholst, aber ich vermute mal, du willst wissen, wie man die DLL in Delphi reinbekommt. Wo die DLL selbst hinkommt, hat flomei ja schon gesagt, genauer:

Code:

Win NT4/2000:
C:\WINNT\System32
Win XP:
C:\WINDOWS\System32

Wobei ich jetzt von der Standard-Installation ausgehe.

Danach fügst du folgenden Code in dein Delphi-Projekt ein, am besten direk nach implementation:

Delphi-Quellcode:

procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
procedure PortWordOut(Port : Word; Data : Word); stdcall; external 'io.dll';
procedure PortDWordOut(Port : Word; Data : DWord); stdcall; external 'io.dll';

function PortIn(Port : Word) : Byte; stdcall; external 'io.dll';
function PortWordIn(Port : Word) : Word; stdcall; external 'io.dll';
function PortDWordIn(Port : Word) : DWord; stdcall; external 'io.dll';

procedure SetPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
procedure ClrPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
procedure NotPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
function GetPortBit(Port : Word; Bit : Byte) : WordBool; stdcall; external 'io.dll';

function RightPortShift(Port : Word; Val : WordBool) : WordBool; stdcall; external 'io.dll';
function LeftPortShift(Port : Word; Val : WordBool) : WordBool;  stdcall; external 'io.dll';

function IsDriverInstalled : Boolean; stdcall; external 'io.dll';

Danach kannst du die obigen Funktionen ganz normal für die Portzugriffe benutzen.

PS: Habe gehört das es mit dieser Art DLL-Import bei älteren Delphis Probleme geben soll, falls das der Fall sein sollte poste ich gerne noch die Alternative mit LoadLibrary() und GetProcAddress().

[Arendt]

Danke für deine hilfe :) uwas mich auch noch interesiert wie sprech ich den port an in qbasic weis ich es geht auch jetzt nur wie gehts hier ??? in delphi ?

MFG Arendt

[scp]

Zitat:

Zitat von Arendt

Danke für deine hilfe :) uwas mich auch noch interesiert wie sprech ich den port an in qbasic weis ich es geht auch jetzt nur wie gehts hier ??? in delphi ?

MFG Arendt

Gib uns am besten ein Beispiel in Basic, dann kann man besser überlegen, wies in Delphi auszusehen hat.

[Arendt]

huhu also in qbasic muss es ja heißen :

OUT &H378, wert für pin

und wie mgehts in delphi ? in dem buch wo ich hier hab steht drinn das man ne extra platine brauch für LPT port darauf ics ansprechen muss usw ... aber wie muss der code aussehen damit ich dieregt den LPT pin ansprechen kann ?

Ich hab die ganzen Treiber installiert aber das Problem mit LPT is immernoch da :/ spuckt immer noch auf allen pins ne 1 bzw strom aus auser 18-25 ....

MFG Arendt

[scp]

Ausgabe:

Delphi-Quellcode:

PortOut($378, wertfuerpin);

Einlesen:

Delphi-Quellcode:

wertvonpin := PortIn($378);

[Arendt]

Thx für den code :)

Hab grade mal in den einstellungen vom LPT port rumgeschnüffelt und hab was endeckt es war " Alle interrupts verweigern" angeklickt dann hab ich das auf "alle interrupts zulassen" gemacht und siehe da ich kann auf ihn zugreifen :)))) goil :)

so ich versuch mal den code reinzuhauen in delphi thx nochmal :)

MFG Arendt :)