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

• #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
  

• #1481 Tele von Zsinór őstag P.H. #1479

  Új Válasz 2007-01-30 03:13:30 #1481

  Ú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

  

  Tele von Zsinór

  őstag

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

  Te jézusatyaúristen
  Ezt ilyen szépen leírva, ráadásul syntax highlightolva... respect

• #1480 P.H. senior tag P.H. #1479

  Új Válasz 2007-01-29 23:23:05 #1480

  Ú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

  

  P.H.

  senior tag

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

  _READCOMM-ban és _WRITECOMM-ban:
  
  result:=GETOVERLAPPEDRESULT(com.handle,com.overlap,moved,false);
  (nem látszik a vége), és az utolsó sor mindkettőben:
  if not result then size:=moved; end;
  (not kimaradt).

• #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
  

• #1456 Bandus99 őstag P.H. #1454

  Új Válasz 2007-01-20 13:58:21 #1456

  Ú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

  

  Bandus99

  őstag

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

  nem ismeri a thn valtozot vagy csak en rontok el vmit...

• #1455 Bandus99 őstag P.H. #1454

  Új Válasz 2007-01-20 11:13:30 #1455

  Ú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

  

  Bandus99

  őstag

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

  Koszonom megnezem
  
  Turbo Delphi de console application ahol probalkozunk

• #1446 Rolly veterán P.H. #1445

  Új Válasz 2007-01-16 19:13:57 #1446

  Ú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

  

  Rolly

  veterán

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

  nekem elég stringben viszont ott .tal kell lennie 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

• #1445 P.H. senior tag P.H. #1444

  Új Válasz 2007-01-16 17:57:36 #1445

  Ú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

  

  P.H.

  senior tag

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

  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]

• #1433 Rolly veterán P.H. #1432

  Új Válasz 2007-01-15 17:27:15 #1433

  Ú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

  

  Rolly

  veterán

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

  thx

• #1426 Rolly veterán P.H. #1424

  Új Válasz 2007-01-15 00:32:04 #1426

  Ú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

  

  Rolly

  veterán

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

  de a colordialog1.color nak milyen típusú az értéke? szöveg, tömb, ...?
  
  csak mert nekem szöveg vagy int vagy float kellene mert azt kellene átalakítanom

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