Új hozzászólás Aktív témák

• #1801 csewe csendes tag

  Új Válasz 2010-03-24 17:55:44 #1801

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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

• #1799 csewe csendes tag

  Új Válasz 2010-03-23 12:22:08 #1799

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #1658 csewe csendes tag

  Új Válasz 2009-01-19 18:31:26 #1658

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #1482 csewe csendes tag P.H. #1480

  Új Válasz 2007-01-30 16:24:24 #1482

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1480 üzenetére

  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
  

• #1478 csewe csendes tag P.H. #1476

  Új Válasz 2007-01-28 12:27:59 #1478

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1476 üzenetére

  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
  

• #1477 csewe csendes tag P.H. #1476

  Új Válasz 2007-01-28 11:41:10 #1477

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1476 üzenetére

  mindent köszi ugyérzem hasznos volt a beszélgetés kipróbálom a progit amit itt írtál aztán majd jelentkezem akkoris ha jó szia

• #1475 csewe csendes tag P.H. #1474

  Új Válasz 2007-01-28 11:30:22 #1475

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1474 üzenetére

  köszi ez az egeres dolog még érdekelne mert tervezek egy letapogatót amit égérrel kívánok megvalósítani igaz delphiben az egérlekérdezés totál egyszerű de érdekelne ez a megoldás is ha nem titok a forráskódot átkűldhetnéd emailben
  

• #1473 csewe csendes tag P.H. #1472

  Új Válasz 2007-01-28 11:16:26 #1473

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1472 üzenetére

  ez működik akkor is ha nem nyomtatót vezérelek a portról? mert az én áramköröm semilyen visszajelzést nem ad a gépne arról hogy fogadta az adatot
  

• #1471 csewe csendes tag P.H. #1469

  Új Válasz 2007-01-28 11:05:38 #1471

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1469 üzenetére

  ja és hova kell beszurni a load iodll utasitást
  

• #1470 csewe csendes tag P.H. #1469

  Új Válasz 2007-01-28 11:00:59 #1470

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1469 üzenetére

  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
  

• #1468 csewe csendes tag P.H. #1467

  Új Válasz 2007-01-28 10:52:16 #1468

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1467 üzenetére

  akkor még tegyél meg anyit hogy adaptálod a lpt2-re mert azon szeretném használni
  kőszi

• #1466 csewe csendes tag P.H. #1465

  Új Válasz 2007-01-28 10:25:36 #1466

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1465 üzenetére

  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
  

• #1464 csewe csendes tag Tele von Zsinór #1462

  Új Válasz 2007-01-27 16:59:12 #1464

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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?
  

• #1463 csewe csendes tag Tele von Zsinór #1462

  Új Válasz 2007-01-27 16:47:04 #1463

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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

• #1461 csewe csendes tag

  Új Válasz 2007-01-27 16:04:26 #1461

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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
  

• #1459 csewe csendes tag

  Új Válasz 2007-01-27 13:39:51 #1459

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.
  

Új hozzászólás Aktív témák