- AMD Navi Radeon™ RX 6xxx sorozat
- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen RAM-ot vegyek?
- TCL LCD és LED TV-k
- Kormányok / autós szimulátorok topikja
- 3D nyomtatás
- AMD Navi Radeon™ RX 9xxx sorozat
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Azonnali VGA-s kérdések órája
- Melyik tápegységet vegyem?
Új hozzászólás Aktív témák
-
csewe
csendes tag
köszönöm hogy enyi energiát szántál a problémám megoldására a kódot kinyomtattam megpróbálom átrágni rajta magam de eléggé megijedtem mikor megláttam enyi kinlódás csak mert xp van a gépen már klomolyan fontolgatom hogy visszalépek win 9x verzióba mert ott könnyedébn megoldottam volna gondolom megvan a teljes progikód neked ha nem nagy gond átkűldhetnéd privát az emeil.emre hogy kísérletezhessem vele a problémát egyenlöre megoldottnak takintem míg ez ellenkezöje ki nem derül
mindent köszi
szia -
csewe
csendes tag
kipróbáltam egérklikkre kellene kiküldenie egy bájtot majd bezárnia a progit de lefagy így néz ki
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure llllll(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Data: byte;
Moved: DWORD;
hPort: THANDLE;
implementation
{$R *.DFM}
procedure TForm1.llllll(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
data := 1 ;
hport:=createfile('LPT1',
(GENERIC_READ or GENERIC_WRITE),
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hport <> INVALID_HANDLE_VALUE then begin
writefile(hport,data,sizeof(data),moved,nil);
closehandle(hport); end;
close ;
end;
end.fusd át hátha russzulm használom a kódot amit írtál nekem
köszi -
-
csewe
csendes tag
ha csak enyi akkor mé ma kipróbálom
ojan rutin kellene ami ritmikusam küld ki adatot az lpt2-re atimerrel gondoltam megoldani már csak azt a sort kéne megadnod amejik kiküldi az adatot mert az át jkell tennem a timer rutinba gondolom az if____thenben van az a sor én ugy látom de az a biztos ha megmondod -
csewe
csendes tag
azt gondolom hogy itt az xp jelenti a gondot merthogy mos az van a gépen . közben kopróbáltam az IO.dll-t de nem működik avval sem pedig máshol nagyon ajánlják de lehet hogy csak én vagyok béna bár konkrét progirészletet kaptam de nem akar kiérni a jel az lpt-re így néz ki
unit PrinterPort;
interface
uses Classes, Forms, StdCtrls, Controls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
function IsDriverInstalled
oolean stdcall; external 'io.dll';
procedure PortOut(Port
ord;Datayte) stdcall; external 'io.dll';
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
PortOut($378,1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PortOut($278,1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
IsDriverInstalled;
end;
end.
két gomb van az egyikkel az lpt1 amásikkal az lpt2-re küld ki agy bájtot ha valaki látja mért nem működik az kijavíthatná
köszi -
P.H.
senior tag
Csak elferült valamiért dőlt betűsre... Na mindegy.
Még annyi, hogy
- ha tényleg '0.0' formában jönnek az adatok, akkor magyar Windows alatt mindenképp kell a második, try-except-es rész, az StrToFloat-hoz (default a vesszős elválasztás)
- a második kódban term. else if áll, 'else of' helyett.
- a második except-be után akkor is bele fog futni, ha a string végén kevesebb, mint 3 szám van, amellett, hogy ha 1-nél több tizedes-elválasztó van. (a '.1' és a '1.' string-eket nem tudom hirtelen, hogy kezeli-e az StrToFloat helyesen, de talán igen)
[Szerkesztve]
oolean stdcall; external 'io.dll';
ord;Data
már nekem is adódott abból gondom hogy float to stringel , lett de csináltam egy aranyos kis függvényt ami kicseréli a ,-t .-ra Új hozzászólás Aktív témák
Hirdetés
- The Division 2 (PC, XO, PS4)
- AliExpress tapasztalatok
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Windows 11
- Milyen légkondit a lakásba?
- AMD Navi Radeon™ RX 6xxx sorozat
- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen RAM-ot vegyek?
- Steam topic
- További aktív témák...
- MacBook felvásárlás!! MacBook, MacBook Air, MacBook Pro
- Bowers/Wilkins Px7 S2 fejhallgatók
- Hibás! Dísznek, Porfogónak, tesztkártyának vagy böngészni! Asus Rog Strix RX 470 4GB Videokártya.
- Bomba ár! Dell Latitude 7280 - i5-7GEN I 8GB I 256SSD I 12,5" FHD I Cam I W11 I Garancia!
- BESZÁMÍTÁS! ASUS ROG STRIX Z390-E GAMING alaplap garanciával hibátlan működéssel
Állásajánlatok
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged