Üdv mindenkinek!
Szeretnék építeni egy vezérlő szerkezetet pic16F877A val, mely a pc felől érkező adatok alapján üzemelne. A PC felől számokat kellene továbbítani soros porton és ezt dolgoztatnám fel a piccel. A PC felőli progit Delphi 6 ba szeretném csinálni. A sorosport kezeléshez lenne szükségem segítségre. Úgy tudom kell valamilyen kiegészítő is a delphibe, de nem találtam sehol (Ha jól tudom tcomPort a neve, de letöltést telepítést nem találok). Tud esetleg segíteni valaki? Ha lehet az elejétől, szájbarágósan
A segítséget előre is köszönöm.

Üdv !

Komponensre lesz szükséged. Itt megtalálsz egy csomót: Bővebben: Link. Itt megvan a TcomPort, a ComDrv32, stb. stb. Arra figyelj, hogy freeware legyen, "fully functional" és ha még "source included" is, az már csak hab a tortán. Azzal ne törődj ha esetleg a komponens Delphi verziója kisebb mint a tiéd, attól még jól fog működni magasabb verzión is.

Üdv!
Erre gondoltál?
Bővebben: Link
Letöltöttem és kicsomagoltam a cuccot de itt megakadtam. Hogy tudom hozzáadni ezt a már meglévő komponensekhez? A component fülön nézelődtem de nem jön össze

Kicsomagolod a source.zip tartalmát a Delphi6 Lib könyvtárjába. Majd beindítod a Delphit. A megnyitott projected bezárod a "close all"-al. Majd File/open, benavigálsz a Lib-be és megnyitod a Cportlib6.dpk-t. Bejön a komponens kisablak, Install ikon, majd compile ikon. Bezárod a piros X-el, a kérdésre, hogy mentsen-e igent nyomsz. Majd ugyanezt eljátszod a DsgnCport6.dpk-val is (betölt, install, compile, bezár, mentés). Ha minden oké akkor a komponens tabon (ahol az alap dolgok is vannak) a legvégén megjelenik egy új fül (sokat kell görgetni mire előjön de majd előrerendezed) CPortLib néven. Lesz benne egy csomó új serial komponens, működésüket az examples.zip-ben lévő példákkal kipróbálhatod.

Jó programozást

Üdv!
Van egy kis gond
A Cportlib6.dpk nál hibát ír, a DsgnCport6.dpk nál nem volt gond. Az új fül megvan, de nem tudom helyesen fog e így működni.

Nekem nem volt ilyen, bár én Delpi 7 alá raktam fel (értelemszerűen a 7-es dpk-kat). Fontos a sorrend, először a Cportlib és azután a DsgnCport. A Cportlib a fő rutinok és a DsgnCport a vizuális és a nem vizuális részek. A Dsgn-ben már hivatkozások vannak a Cport-ra, valószínű, hogy így nem fog rendesen működni. Távolítsd el az egészet és próbáld meg elölről.

Hello
Nagyon egyszerű installálni,kicsomagolod a zip file-t egy könyvtárba, a benne lévő file-okat bemásold a c:\programfiles\borland\delphi6\lib (vagy ahova telepítetted a delphit, a lényeg hogy a lib könyvtárba).
Megkeresed a DsgnCPort6.dpk filet-t elindítod, elindul a Delphi behoz egy components installáló ablakotot, ott install-ra kattintasz, majd a compile ikonra, és elvileg kész is, létrehozott neked egy új fület CPortLib néven.
Melékelem a zip filet, és readme-t is.

Üdv!
Próbáltam de nem csinálja, a régit letöröltem (egész delhit uninstall, mappa törlése a prgfilesból, újratelepítés, újrapróba, nem megy )

Delphi7 alatt tökéletesen működik, felrakja mindkettőt.

Kipróbáltam Delphi6 alatt, valóban nem rakja fel a Run-time package-t (CPortLib) csak a Design-time-t (DsgnCport). Nem hinném, hogy így jól működne, ha csak a Design-time van fent.

Viszont Delphi6 alatt gond nélkül felrakta a Delphi7 verziót, még egy "warning" se volt, kipróbálhatnád. Kérdés, hogy működik-e rendesen.

Esetleg beszerezhetnéd a Delphi7-et, sokkal jobb mint a 6-os, jobban idomul az XP-hez. Az 5-ös volt a kedvencem Win98 alatt, most a 7-es XP alatt.

Megpróbálom beszerezni.
Kipróbáltam a többi verzióhoz valót is de mindíg hiba volt.

Vagy inkább hagyd ezt a Tcomport komponenst, van a Torry-n még legalább 10 másik free, valamelyik csak felmegy a Delphi 6-ra rendesen...

Siker!
Nagy nehezen sikerült feltuszkolni rá a 7 hez valót.
A mintaprogit megnyitja, a pic felől fogad és küld is adatot.
Már csak rá kell jönni, hogy mi mire való.
A program felét leszedegettem és még mindig megy rendesen. Volt 2 registry sor, arról nem tudom mit művelhet, nélkülük is megy a progi, de biztos nem ok nélkül voltak ott.
procedure TForm1.Bt_StoreClick(Sender: TObject);
begin
ComPort.StoreSettings(stRegistry, 'HKEY_LOCAL_MACHINE\Software\Dejan');
end;
procedure TForm1.Bt_LoadClick(Sender: TObject);
begin
ComPort.LoadSettings(stRegistry, 'HKEY_LOCAL_MACHINE\Software\Dejan');
end;
Ezek mit csinálhattak?

Majdnem lemaradt a forrás.
A kommenteknél van egy rész amit nem értek (jelöltem
és van fölötte egy count amit szintén nem.)

Ennek örülök

A két registry sor elmenti/visszatölti a Com port beállításait az adott gépen (baud, parity, stb.), annyira nem fontos csak kényelmi szolgáltatás. A count egy paraméter egy string hosszbeállító rutinhoz. Amennyi a count, annyi karakternyi hosszúságú stringeket olvas a portról. A "homályos" rész valami olyasmi, hogy ha bezárja a Com portot a program és létezik a formon a Button_open nevű gomb, akkor az lesz a felirata, hogy "Open".

Ez a téma engem is érdekelne
Feltenni fel tudom, sőt már írtam ksiebb programot (ami érzékeli hogy van-e jel a DTS, DCD vagy más lábakon), de a kommunikációt nem értem :no:

Üdv!
A progi amit feltettem fel van kommentezve (Volt egy rész ami nem volt világos de meglett). A port túlvégén egy pic van nekem, a programját Parsicba csináltam (moduklrendszerű grafikus pic programozás topic). Te mit szeretnél a portra kötni? Hogy lehet érzékelni ha van jel valamelyik lábon (pl valamelyik magas vagy alacsony szinten van)?

Most nézem, DCD-t nem is lehet figyelni... (vagy csak én nem találom..)
Szóval a ComPort1-nek van olyan tulajdonsága hogy OnCTSChange meg OnDSRChange oda beírsz valamit és ha változik azon a lábon lévő fesz érték, akkor végrehajtódik az oda beírt utasítás.
A ComLed1-nél is lehet babrálni, a Properties-nél keress egy olyat hogy LedSignal, ott is ki lehet választani hogy mire reagáljon (villanjon föl).

"ComLed1-nél is lehet babrálni, a Properties-nél keress egy olyat hogy LedSignal"
Azt a ComLed1-et nem tudtam sehogy sem müködésre bírni... :no:

Viszont a mostani cikkemhez írtam két újj soros port vezérlő progit, az egyiket csatolom. Mivel nem tudtam elindítani a ComLed1-et így egy másik Led componenst használtam. (többet is tud a kicsike)

Sziasztok! Hu, megpróbálom röviden. Az a gondom, hogy Delphi7 alá felraktam a comportlib-et. De már a mellé csomagolt mintát sem fordítja le, a gondja a cportsetup.pas ban van.
Nem tudom találkozott e már valaki ezzel a problémával, de szívesen vennék némi segítséget!
Köszönöm előre is!

Rosszul telepítetted.
Van valahol egy részletes leírás, de nem tudom már hol...

Hali!
Igen azt meg leltem, (picit fentebb ), és így regelre a hibát is, pedig egyszer már megjártam ezzel, volt neki a lib mappában alkönyvtára.
Köszi azért!

Sziasztok!
A problémám az lenne, hogy soros porton szeretném egy kapcsoló állapotát figyelni. Konkrétan egy Delphiben írt stopper progit vezérelnék vele. A programból figyelném a kpacsoló állapotát, és ha zár a kapcsoló akkor leáll a számláló. Átbogarásztam a fórumot, de ilyet nem találtam, sajnos LPT port szóba se jöhet. A progi már működik jelenleg az egér jobb gombját figyelem, de ez nem jó megoldás, mindenképpen egy a géptől messzebb elhelyezett kapcsolót kellene beszerelnem.
Köszi!

A com porton használd a CTS, DCD vagy DSR lábat és azt figyeld a programmal.

Köszi, közben megoldódott, a DSR lábon megy. Cport-al sikerült Köszi!

Sziasztok.

Igy sikerült feléleszteni a ComPort Libary komponenst Delphi 7 alatt.

Ezt csak azért teszem fel ide, hogy ha valaki erre keveredik komplett leirást lásson.

Tudom kicsit már OFF a téma, de nem ártok ezzel senkinek.


1. Installald fel a D7 programot.
2. másoldbe a comport411c.zip\Source konyvtár tartalmát a Delphi\LIB könyvtár-ba
3. másoldbe a comport411c.zip\DCU konyvtár tartalmát a Delphi\LIB könyvtár.ba
4. másoldbe a comport411c.zip\HELP konyvtár tartalmát a Delphi\HELP könyvtár.ba
5. Indisd el a Delphi7-et
6. File...Open(megnyitás) CPortLib7.dpk
7. Package ablak kattins COMPILE BUTTON
8. Contains menu egér jobb katt INSTALL
9. X-el bezárjuk utánna mentsük el a fáljlt
10. File...Open (megnyitás) DsgnCPort7.dpk
11.Package ablak kattins COMPILE BUTTON
12. Contains menu egér jobb katt INSTALL
13. X-el bezárjuk utánna mentsük el a fáljlt
14.kilépünk a Delphi-böl
15.Elmentjük a projectet CPort néven.

És a Listában meg fog jelenni hiba nélkül a CPortLib-fül.
A CPortLib kipróbálható hogy hibátlanúl megtalál-e minden komponenst a Delphi,
más dolgunk nincsen csak annyi hogy minden elemét, komponensét megfogjuk
és behelyezzük a Form-ra, és ha hiba nélkül forditja le a delphi akkor mindent jól csináltunk.


Leirás vége.

100%-osan használható megoldás, többször is kipróbált.

Hali.

Üdv.

A 3 Commande 2009-program forrása nincsen meg valakinek??

Hali

Sziasztok!

Képen látható problémám akadt,mikor bedugtad a gépbe a kapcsolást és kapcsolni akartam.Tudja valaki mi lehet a hiba?mit kell át állítani?

Üdv ZOL94

Milyen kapcsolást dugtál a soros portra????

Rakd fel ide azt a 3 Commande változatot, ami
neked hibaüzenetet ir ki.

hali

közben megtaláltam a szoft-ot.

nálam ilyen hibaüzenetet nem ir ki.

hali.

Üdv.

Tudnál egy kicsit segiteni a RS232 port programozásában.( példaprogramok+forrás)
Delphi alatt nekem a CPortLib_ComPort Libary 4.11-van felrakva. Dejan Crnila féle.

Lépésről lépésre.

Köszi.

hali.

Üdv

Sorosport programozás.

Gondolom a Form1-re a TComPort-komponenst helyezem be először.




Pontosabban helyes paraméterezés??

ComPort1.Connected
ComPort1.BaudRate
ComPort1.Port
ComPort1.Parity
ComPort1.StopBits
ComPort1.DataBits

Akár hogyan szerettem vólna paramétereket beállitani , a delphi hibaüzenetet adott.

ComPort1.BaudRate:=(9600);
ComPort1.BaudRate:=('9600');
ComPort1.BaudRate:='9600';
mindenhogyan hibaüzenetet kaptam. ( nem megfelelő paraméter)

Példaprogram.
1.nyissuk meg a sorosort-ot (com1)
2.paraméterezzük Baudrate 9600, Databit 8, Parity Non, StopBits 1, ( a hardver ha sz szükséges )
3. ComPort1.OnCTSChange...... küldjünk ki valamit a port-on.
Led dióda lesz rákötve.

4. Sleep egy ideig tartja a port-ot

5. Port beárása.

Helyesen hogyan is nézne ez ki???

-------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin




Sleep(500);


end;



------------------------------------------------------------------------------------------------


Hali