- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Hobby elektronika
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Milyen videókártyát?
- Milyen egeret válasszak?
- Milyen TV-t vegyek?
- Amazon Kindle
- Amlogic S905, S912 processzoros készülékek
- A régi node-okra koncentrál a szankciók miatt Kína
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
A személyre szabott reklám lehet a streaming következő slágere
it A jobb célzott hirdetések érdekében adatplatformot indít a Warner Bros Discovery.
-
VR játék lesz az Alien: Rogue Incursion
gp Az év végén érkező program PC-re, Meta Quest 3-ra és PlayStation VR2-re érkezik a tervek szerint.
Új hozzászólás Aktív témák
-
csewe
csendes tag
sziasztok
az én problémám az hogy delphi 5 ben irtam egy progit ami külömbözö adatokat küld ki az lpt portra asm-ben van a portraküldés de indításkor kapok egy üzenetet amit nem értek (no inglis)
project project1.exe raised exception dass eprivilege with message 'privilege instruction' process stopped,use step or ron to continue.
erre kinálja az OK gombot
megjegyzem még régebben ugyanez az asm progirészlet pascalban simán müködött .
minden tanácsot szivesen fogadok.
a progi feladata egyébként az lpt porton lévö elektronika vezérléselenne.
előre is köszi. -
csewe
csendes tag
sajna nem vagyok jártas anyira a delpfiben windows api fügvényeket nem igazán használtam még és egyébkáént is az api fügvényes portkezelő valószínűleg kivan hegyezve nyomtatókra ezére választ vár a kiküldött kódra az én cuccom pedig nem válaszol csak végrehajt íme a kódrészlet
asm
mov dx , 0378h ; portcím
mov al , dat ; kiküldendő adat
out dx, al ;kiítás a pórtra
end ;
ha valaki tudja ezt az asm rutint helyettesítani úyg hogy windows alatt is menjen a dolog azt kérem tegye meg hogy leyrja nekem a helyettesítő kódrészletet.
nemragaszkodom az asm kódhoz lhet a delphiben alkalmazható bámi más megoldás is -
csewe
csendes tag
válasz Tele von Zsinór #1462 üzenetére
köszi mindjárt meg is nézem és ha valami nem világos akkor visszatérek ide
-
csewe
csendes tag
válasz Tele von Zsinór #1462 üzenetére
megnéztem az ajánlott oldalt nem éppen delfi progframozással foglalkozik valami használható nincs?
-
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 IsDriverInstalledoolean stdcall; external 'io.dll';
procedure PortOut(Portord;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 -
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
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
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
sziasztok
az lenne a kédésem,hogy tedit és tmemokomponensekben lehet e betüméretert állítani,és ha igen hogyan. -
csewe
csendes tag
sziasztok
hogy tudnék átmásolni egy pf32bit képet pf24bit be
PL. image1 pf32bit-es ennek egy részletét másolnám image2 pf24bit-be
nem tudom , hogy ha scanline-al vagy pixels-el kiolvason az egyiket és beirom a másikba az lehetséges e.
megpróbáltam egyszerűen image2 := imaqge1 ; de üres képet kaptaqm image2 .-- ben.
-
csewe
csendes tag
sziasztok
az lenne a kérdésem,hogy a for alatti hátteret hogyan tudnám kiolvasni.
van egy kódom, de ez csak a háttérképet olvassa a képernyőn lévő ikonok és egyéb
PL.nyitott ablakok képét nem menti le.procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=TRUE;
end;procedure TForm1.WMPaint;
begin
PaintDesktop(Canvas.Handle);
end;köszi
Új hozzászólás Aktív témák
- Rövid teaser trailert kapott a Dragon Age: Dreadwolf
- Fotók, videók mobillal
- Kertészet, mezőgazdaság topik
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Vírusirtó topic
- Rossz üzlet az EV-kölcsönzés
- MIUI / HyperOS topik
- A személyre szabott reklám lehet a streaming következő slágere
- További aktív témák...
- LG NanoCell 55NANO766QA Halvány píxel csík
- Philips 58PUS8545/12 1 ÉV GARANCIA Játék üzemmód
- Tyű-ha! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 32/512 FHD HUN
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- The Last of Us Part I Ps5