Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 1Π‘ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ OLE
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΠΠΠΠΠΠΠ ΠΠ°Π΄Π°ΡΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠ΅ΡΠ° ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΡΡΠΎΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅Π΄ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡΠΌΠΈ, ΠΌΠΎΠ³ΡΡ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΡΠ°Π·Π»ΠΈΡΠ°ΡΡΡΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΎΠ΄Π° Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ, ΠΎΡΡΠ°ΡΠ»ΠΈ, ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠΈ Π²ΡΠΏΡΡΠΊΠ°Π΅ΠΌΠΎΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ ΠΈΠ»ΠΈ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌΡΡ ΡΡΠ»ΡΠ³, ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΈ ΡΡΡΡΠΊΡΡΡΡ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ, ΡΡΠ΅Π±ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ Π±ΠΈΠ·Π½Π΅Ρ-ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² ΠΈ ΠΌΠ½ΠΎΠ³ΠΈΡ Π΄ΡΡΠ³ΠΈΡ ΡΠ°ΠΊΡΠΎΡΠΎΠ². Π… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 1Π‘ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ OLE (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΏΡΠΎΡΠ²Π΅ΡΠ΅Π½ΠΈΡ ΠΠΠ ΠΡΠΈΠ΄Π½Π΅ΡΡΡΠΎΠ²ΡΠΊΠΈΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΠΈΠΌ. Π’. Π. Π¨Π΅Π²ΡΠ΅Π½ΠΊΠΎ ΠΠ΅Π½Π΄Π΅ΡΡΠΊΠΈΠΉ ΠΏΠΎΠ»ΠΈΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠΈΠ»ΠΈΠ°Π» ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° ΠΏΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅:
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈ ΡΠΊΡΠΏΠ»ΡΠ°ΡΠ°ΡΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ Π’Π΅ΠΌΠ°:
Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 1Π‘ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ OLE
ΠΡΠΏΠΎΠ»Π½ΠΈΠ»: Π‘ΡΡΠ΄Π΅Π½Ρ 46-Π Π³ΡΡΠΏΠΏΡ ΠΡΠΌΡΡΠ»Ρ ΠΠ»Π΅ΠΊΡΠ°Π½Π΄Ρ Π‘Π΅ΡΠ³Π΅Π΅Π²ΠΈΡ ΠΡΠΎΠ²Π΅ΡΠΈΠ»: ΠΡΠ΅ΠΏΠΎΠ΄Π°Π²Π°ΡΠ΅Π»Ρ ΠΠ°ΡΡΡ Π. Π Π‘ΠΠΠΠ ΠΠΠΠΠ:
2. ΠΠΊΡΡΠ°Π»ΡΠ½ΠΎΡΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΠ΅ΠΌΡ
3. Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ
4. Π‘ΡΠ΅Π΄Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Delphi
5. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΡ
6. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΠΠΠΠΠΠΠ ΠΠ°Π΄Π°ΡΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠ΅ΡΠ° ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΡΡΠΎΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅Π΄ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡΠΌΠΈ, ΠΌΠΎΠ³ΡΡ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΡΠ°Π·Π»ΠΈΡΠ°ΡΡΡΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΎΠ΄Π° Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ, ΠΎΡΡΠ°ΡΠ»ΠΈ, ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠΈ Π²ΡΠΏΡΡΠΊΠ°Π΅ΠΌΠΎΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ ΠΈΠ»ΠΈ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌΡΡ ΡΡΠ»ΡΠ³, ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΈ ΡΡΡΡΠΊΡΡΡΡ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ, ΡΡΠ΅Π±ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ Π±ΠΈΠ·Π½Π΅Ρ-ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² ΠΈ ΠΌΠ½ΠΎΠ³ΠΈΡ Π΄ΡΡΠ³ΠΈΡ ΡΠ°ΠΊΡΠΎΡΠΎΠ². Π, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ ΠΆΠ΅, Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ°ΠΌ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΌΠ΅Π½ΡΡΡΡΡ ΠΏΠΎ ΠΌΠ΅ΡΠ΅ ΡΠ°Π·Π²ΠΈΡΠΈΡ Π±ΠΈΠ·Π½Π΅ΡΠ°.
Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π±ΠΎΠ»Π΅Π΅ 600.000 ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ²ΠΎΠ΅ΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΡ, Π²Ρ ΠΎΠ΄ΡΡΠΈΠ΅ Π² ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ «1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅». ΠΠ°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠΈΡΠΎΠΊΠΎ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Ρ ΡΠΈΡΠ°ΠΆΠ½ΡΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΡ ΡΠΈΡΡΠ΅ΠΌΡ «1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅», ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΠ΅ Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΡΠ΅ΡΠ½ΡΡ Π·Π°Π΄Π°Ρ (Π±ΡΡ Π³Π°Π»ΡΠ΅ΡΠΈΡ, ΡΠΊΠ»Π°Π΄, ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ°Π΄ΡΠ°ΠΌΠΈ). Π ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π΅ Π²ΡΠ΅ΠΌΡ Π±ΡΡΡΡΠΎ ΡΠ°ΡΡΠ΅Ρ ΡΠΈΡΠ»ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΡ Π½Π° Π±Π°Π·Π΅ «1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅» ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ², ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ Π΄Π»Ρ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ½ΠΎΠΉ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠ΅ΡΠ° ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅ΠΌ, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ΠΏΠ»Π°Π½ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΡΡΡΡΠΎΠ², ΡΠ°Π±ΠΎΡΡ Ρ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°ΠΌΠΈ, Π±ΡΠ΄ΠΆΠ΅ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π‘ΠΈΡΡΠ΅ΠΌΠ° «1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅» Π΄Π°Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΊΠΎΠ½ΡΠΈΠ³ΡΡΠ°ΡΠΈΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°, Π΄ΠΎΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΠΈ ΠΎΡΠ»Π°ΠΆΠΈΠ²Π°ΡΡ ΠΈΡ , ΠΈΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΡ ΠΊΠΎΠ½ΡΠΈΠ³ΡΡΠ°ΡΠΈΡ Π΄Π»Ρ ΡΠΊΡΠΏΠ»ΡΠ°ΡΠ°ΡΠΈΠΈ Π΅Π΅ ΠΊΠΎΠ½Π΅ΡΠ½ΡΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ.
ΠΠ°Π»ΠΈΡΠΈΠ΅ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠΏΠ΅ΠΊΡΡΠ° ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² ΠΈ ΠΈΡ ΠΌΠ°ΡΡΠΎΠ²ΠΎΠ΅ ΡΡΠΏΠ΅ΡΠ½ΠΎΠ΅ Π²Π½Π΅Π΄ΡΠ΅Π½ΠΈΠ΅ Π²ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΌ ΠΎΠ±ΡΡΠ»ΠΎΠ²Π»Π΅Π½ΠΎ ΡΠ΅ΠΌ, ΡΡΠΎ Π² ΠΎΡΠ½ΠΎΠ²Π΅ «1Π‘:ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ» Π»Π΅ΠΆΠΈΡ ΠΌΠΎΡΠ½Π°Ρ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ°, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΡΠΈΡΠΌΠ΅ «1Π‘», Π΅Π΅ ΠΏΠ°ΡΡΠ½Π΅ΡΠ°ΠΌ, Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΠΌ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°ΠΌ ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΠΌ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΎΡΠ°ΠΌ, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠ°ΠΌΠΈΠΌ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°ΠΌ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠ°ΠΌΡΠ΅ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΠ΅ Π±ΠΈΠ·Π½Π΅Ρ-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
1. ΠΠΊΡΡΠ°Π»ΡΠ½ΠΎΡΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΠ΅ΠΌΡ Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ OLE (Object Linking and Embedding) Π ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈ ΠΎΠ±ΠΌΠ΅Π½Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ Π΄ΡΡΠ³ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ. Π‘Π²ΡΠ·ΡΠ²Π°Π½ΠΈΠ΅ ΠΈ Π²Π½Π΅Π΄ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Object Linking and Embedding). OLE ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°ΡΡ ΡΠ°ΡΡΡ ΡΠ°Π±ΠΎΡΡ ΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π΄ΡΡΠ³ΠΎΠΉ ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ Π½Π°Π·Π°Π΄.
OLE ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅ ΡΠΎΡΡΠ°Π²Π½ΡΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΎΠ² (Π°Π½Π³Π». compound documents), ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π° ΠΏΡΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠ΅ Π΄Π°Π½Π½ΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ Π½Π΅ΡΠ²ΡΠ·Π°Π½Π½ΡΠΌΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠ°ΠΌΠΈ ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠ°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΏΠ΅ΡΠ΅Π½ΠΎΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· ΡΠ΅Π·Π΅ΡΠ²Π½ΠΎΠΉ Π±Π°Π·Ρ 1Π‘ Π² Π±Π°Π·Ρ Ρ ΡΡΠ΅ΡΡΠ½Π½ΡΠΌΠΈ ΠΈΠ»ΠΈ ΠΏΠΎΠ²ΡΠ΅ΠΆΠ΄Π΅Π½Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ.
2. Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ:
— ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΏΠ»Π°ΡΡΠΎΡΠΌΡ 1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅;
— ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΎΠ²Π°ΡΡ Ρ 1Π‘ (ΠΠΎΠ΄ΠΊΠ»ΡΡΠ°ΡΡΡΡ ΠΊ 1Π‘ ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ΅, ΡΡΠΈΡΡΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈΠ· ΠΠ 1Π‘ ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ Π΅Ρ);
— ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ;
— ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΠ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠΉ ΠΈΠ· ΠΏΡΠΎΡΠΈΡΠ°Π½Π½ΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ.
3. Π‘ΡΠ΅Π΄Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Delphi
Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi — ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² ΠΎΠ΄Π½ΠΎΠΈΠΌΡΠ½Π½ΠΎΠΉ ΡΡΠ΅Π΄Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΠ΅ΠΉ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π²Π°ΠΆΠ½Π΅ΠΉΡΠΈΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ:
— Π²ΡΡΠΎΠΊΠΎΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ Π² ΠΌΠ°ΡΠΈΠ½Π½ΡΠΉ ΠΊΠΎΠ΄;
— ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ;
— Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ΅ (Π°, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΠΈ ΡΠΊΠΎΡΠΎΡΡΠ½ΠΎΠ΅) ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΡΠΎΡΠΈΠΏΠΎΠ²;
— ΠΌΠ°ΡΡΡΠ°Π±ΠΈΡΡΠ΅ΠΌΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π±Π°Π· Π΄Π°Π½Π½ΡΡ .
Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΡ ΡΡΠ΅Π΄Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi, ΠΎ Π½Π΅ΠΉ ΡΠ°ΠΊΠΆΠ΅ Π³ΠΎΠ²ΠΎΡΡΡ ΠΊΠ°ΠΊ ΠΎ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΉ ΠΈ ΡΠΎΠ±ΡΡΠΈΠΉΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ. ΠΠ΅ΡΠ²ΠΎΠ΅ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎ, Ρ. Π΅. Π½Π°Π³Π»ΡΠ΄Π½ΠΎ ΠΌΠΎΠΆΠ΅Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ ΡΠ΅ Π·Π°Π³ΠΎΡΠΎΠ²ΠΊΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π² Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΌ Π±ΡΠ΄ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΊΡΠ°Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π² Π΅Π³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ°ΠΌ ΡΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°ΡΡ Π΅Π΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ (Π²Π½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄) ΠΏΡΡΠ΅ΠΌ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠ° ΡΡΠΈΡ Π·Π°Π³ΠΎΡΠΎΠ²ΠΎΠΊ Π½Π° ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌΡ. ΠΡΠΎΡΠΎΠ΅ ΠΆΠ΅ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΠ±ΡΠ°ΡΡ ΠΈΠ· ΠΈΠΌΠ΅ΡΡΠ΅Π³ΠΎΡΡ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΏΠΈΡΠΊΠ° ΡΠ΅ ΡΠΎΠ±ΡΡΠΈΡ, Π½Π° ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠ΅Π°Π³ΠΈΡΠΎΠ²Π°ΡΡ ΡΠΊΡΠ°Π½Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΈ Π·Π°ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ ΡΡΡ ΡΠ΅Π°ΠΊΡΠΈΡ Π½ΡΠΆΠ½ΡΠΌ Π΅ΠΌΡ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΠ°ΠΊΠΎΠ½Π΅Ρ, Π΅ΡΠ΅ ΠΎΠ΄Π½ΠΈΠΌ Π²Π°ΠΆΠ½ΡΠΌ Π΄ΠΎΡΡΠΎΠΈΠ½ΡΡΠ²ΠΎΠΌ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi ΡΠ²Π»ΡΠ΅ΡΡΡ Π΅Π΅ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½ΠΎΡΡΡ. ΠΠ΅Π»ΠΎ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠ·ΡΠΊΠΈ ΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΠ·Π΄Π°Π½Ρ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ·ΠΊΠΎΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΡ Π·Π°Π΄Π°Ρ. Π’Π°ΠΊ, ΡΠ·ΡΠΊ Cobol ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠΈ, ΡΠ·ΡΠΊ Fortran — Π΄Π»Ρ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΠΎ-ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ², ΡΠ·ΡΠΊΠΈ Lisp ΠΈ Prolog — Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Π½Π°Π΄ ΡΠΈΡΡΠ΅ΠΌΠ°ΠΌΠΈ ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠ° ΠΈ Ρ. Π΄. Π‘ΠΈΡΡΠ΅ΠΌΠ° ΠΆΠ΅ Delphi ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠ΅ ΠΈ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎ ΡΠ°Π±ΠΎΡΠ°ΡΡΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ Π² ΡΠ°ΠΌΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΡΠ΅ΡΠ°Ρ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ.
4. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΡ ΠΠΎΡΠΎΠ²ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Ρ ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠΌ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΠΎΠΌ ΠΈ ΡΠ΄ΠΎΠ±Π½ΡΠΌ, ΠΈΠ½ΡΡΠΈΡΠΈΠ²Π½ΠΎ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ (ΡΠΈΡ. 1).
ΠΠΎΡΠΎΠ²ΡΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡ.
Π ΠΈΡ. 1
5. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Π½Π°ΡΠ°Π»ΠΎΡΡ Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π½Π° ΠΠ ΠΏΠ»Π°ΡΡΠΎΡΠΌΡ 1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅ ΠΈ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Borland Delphi 7.
ΠΠ°ΡΠ΅ΠΌ, Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΡ Π½Π°Π΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠΌ, Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π³ΠΎΡΠΎΠ²ΡΡ ΠΊΠΎΠ½ΡΠΈΠ³ΡΡΠ°ΡΠΈΡ 1Π‘.
ΠΡΠ»Π° Π²ΡΠ±ΡΠ°Π½Π° ΠΊΠΎΠ½ΡΠΈΠ³ΡΡΠ°ΡΠΈΡ «Π‘ΠΊΠ»Π°Π΄». ΠΠ°Π΄ Π½Π΅ΠΉ Π±ΡΠ΄ΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ:
— ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ;
— Π²ΡΠ±ΠΎΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ;
— ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΡΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΎΠ²;
— ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°Ρ ;
Π Delphi:
— Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
— Π Π°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΡΠ°ΠΊ, ΠΊΠ°ΠΊ ΡΡΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΎ Π½Π° ΡΠΈΡ. 2
Π ΠΈΡ. 2. Π€ΠΎΡΠΌΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ° Π’Π°Π±Π»ΠΈΡΠ° 1
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π² ΡΠΎΡΠΌΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ°
ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ | ΠΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ | ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ | |
Π Π°ΡΠΊΡΡΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ | CB1: TComboBox | ΠΡΠ±ΠΎΡ Π²Π΅ΡΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 1Π‘ | |
ΠΠ½ΠΎΠΏΠΊΠ° ΠΠ±Π·ΠΎΡ… | Button3: TButton | ΠΡΠ±ΠΎΡ ΠΏΡΡΠΈ ΠΊ Π±Π°Π·Π΅ 1Π‘ | |
ΠΠ½ΠΎΠΏΠΊΠ° Π‘ΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΡ | Button1: TButton | Π‘ΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ 1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅ | |
ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π²ΡΠ±ΠΎΡΠ° ΠΏΠ°ΠΏΠΊΠΈ | OpenDialog1: TOpenDialog | ΠΡΠ±ΠΎΡ ΠΏΠ°ΠΏΠΊΠΈ | |
ΠΠ΄Π½ΠΎΡΡΡΠΎΡΠ½ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ | E2: TEdit | ΠΡΡΡ ΠΊ Π±Π°Π·Π΅ 1Π‘ | |
ΠΠ΄Π½ΠΎΡΡΡΠΎΡΠ½ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ | E4: TEdit | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ 1Π‘ | |
ΠΠ΄Π½ΠΎΡΡΡΠΎΡΠ½ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ | E5: TEdit | ΠΠ°ΡΠΎΠ»Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ 1Π‘ | |
Π Π°ΡΠΊΡΡΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ | CB2: TComboBox | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° Π±Π°Π·Ρ 1Π‘ | |
ΠΠ½ΠΎΠΏΠΊΠ° Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ | Button2: TButton | Π‘ΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΏΠΎΠΊΠ°Π· ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ (ΠΠΎΠ΄ ΠΈ ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅) ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° | |
Π Π°ΡΠΊΡΡΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ | CB3: TComboBox | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° | |
ΠΠ½ΠΎΠΏΠΊΠ° ΠΠ·ΠΌΠ΅Π½ΠΈΡΡ | Button4: TButton | ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° | |
ΠΠ½ΠΎΠΏΠΊΠ°-ΠΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ | SB1:TSpeedButton | Π¦Π²Π΅ΡΠΎΠ²ΠΎΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ 1Π‘ | |
ΠΠ½ΠΎΠΏΠΊΠ° ΠΠ°ΠΊΡΡΡΡ | BitBtn1: TBitBtn | ΠΠ°ΠΊΡΡΠ²Π°Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | |
ΠΠ°ΡΡΠΈΠ² ΡΡΡΠΎΠΊ | ListBox1: TListBox | ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° | |
ΠΠ΅ΡΠΊΠΈ | Label6,Label7: TLabel | Π£ΠΊΠ°Π·ΡΠ²Π°ΡΡ Π½Π° ΠΏΠΎΠ»Ρ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½ΡΠΆΠ½ΠΎ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ | |
ΠΠ΅ΡΠΊΠ° | Label5: TLabel | Π’Π΅ΠΊΡΡΠΎΠ²ΡΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ 1Π‘ | |
Π’Π΅ΠΏΠ΅ΡΡ Π²ΡΡ Π³ΠΎΡΠΎΠ²ΠΎ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ Π½Π° ΡΠΎΡΠΌΠ΅.
Π ΡΠΎΠ±ΡΡΠΈΠΈ OnCreate ΡΠΎΡΠΌΡ ΠΏΡΠΎΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄:
procedure TForm1. FormCreate (Sender: TObject); //ΠΠ°Π΄Π°ΡΠΌ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅
ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΡΠΎΡΠΌΡ
begin
SB1.Visible := False; //ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅Π²ΠΈΠ΄ΠΈΠΌ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ° Π½Π΅
//ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΠ»ΠΎ ΠΏΠΎΠΏΡΡΠΎΠΊ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Π±Π°Π·ΠΎΠΉ 1Π‘.
label5.Visible := False; //ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ Ρ SB1
Button1.Enabled := False; // ΠΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ ΠΠ΅ΡΡΠΈΡ ΠΈ ΠΡΡΡ ΠΊ Π±Π°Π·Π΅ Π½Π΅
ΡΠΊΠ°Π·Π°Π½Ρ, ΠΏΠΎΡΡΠΎΠΌΡ //ΠΊΠ½ΠΎΠΏΠΊΠ° Π½Π΅Π°ΠΊΡΠΈΠ²Π½Π°
Button2.Enabled := False; //Π’Π°ΠΊ ΠΊΠ°ΠΊ Π½Π΅ΡΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ,
ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ Π½Π΅Π»ΡΠ·Ρ //ΡΡΠΈΡΡΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΡΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΎΠ².
Button4.Enabled := False; //Π Π°Π· Π½Π΅ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ΅Π½Π° Π±Π°Π·Π° ΠΈ Π½Π΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΎΠ²
Π½ΠΈΠΊΠ°ΠΊΠΈΡ //ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π½Π°Π΄ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΈ Π±ΡΡΡ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ.
end;
Π ΠΈΡ. 3
Π ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠ΅ΠΌΡΡ ΡΠΏΠΈΡΠΊΠ΅ CB1 Π² ΡΠ²ΠΎΠΉΡΡΠ²Π΅ Items ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ΄ΡΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΠΏΡΠΈ Π²ΡΠΏΠ°Π΄Π΅Π½ΠΈΠΈ ΡΠΏΠΈΡΠΊΠ°:
— V77. Application — Π·Π°Π²ΠΈΡΠΈΠΌΡΠΉ ΠΊΠ»ΡΡ;
— V77S. Application — Π·Π°Π²ΠΈΡΠΈΠΌΡΠΉ ΠΊΠ»ΡΡ, SQL — Π²Π΅ΡΡΠΈΡ;
— V77L. Application — Π·Π°Π²ΠΈΡΠΈΠΌΡΠΉ ΠΊΠ»ΡΡ, Π»ΠΎΠΊΠ°Π»ΡΠ½Π°Ρ Π²Π΅ΡΡΠΈΡ;
— V77M. Application — Π·Π°Π²ΠΈΡΠΈΠΌΡΠΉ ΠΊΠ»ΡΡ, ΡΠ΅ΡΠ΅Π²Π°Ρ Π²Π΅ΡΡΠΈΡ;
— V1CEnterprise. Application — Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΠΉ ΠΊΠ»ΡΡ;
ΠΡΠΎ ΠΎΠ΄Π½Π° ΠΈΠ· Π²Π΅ΡΡΠΈΠΉ, ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½Π°Ρ Π½Π° Π²Π°ΡΠ΅ΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅.
Π ΡΠΎΠ±ΡΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΠ±Π·ΠΎΡ… ΠΈΠ΄ΡΡ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π½Π° ΡΠΎΡΠΌΠ΅ OpenDialog1, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΠΎΠΊΠ½ΠΎ Π²ΡΠ±ΠΎΡΠ° ΠΏΠ°ΠΏΠΊΠΈ. ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π° Ρ Π±Π°Π·ΠΎΠΉ 1Π‘, Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΡΡΡ ΠΏΡΡΡ ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡΡΡ Π² E2.
Π ΠΈΡ. 4
procedure TForm1. Button3Click (Sender: TObject);
begin
if OpenDialog1. Execute then
E2.Text:=ExtractFileDir (OpenDialog1.FileName); // ΠΈΠ·Π²Π»Π΅ΠΊΠ°Π΅Ρ ΠΈΠ·
FullFileName Π΄ΠΈΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΡ ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°Π΅Ρ Π΅Ρ Π² Π2
OpenDialog1.InitialDir:=E2.Text;
end;
ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΏΡΡΠΈ ΠΊ Π±Π°Π·Π΅, Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Π‘ΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ ΠΊ Π±Π°Π·Π΅ 1Π‘ ΠΏΠΎ ΠΏΡΡΠΈ, Π·Π°Π½Π΅ΡΠ΅Π½Π½ΠΎΠΌΡ Π² Π2, ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΡ Π²Π΅ΡΡΠΈΡ ΠΈΠ· CB1. ΠΠ°ΡΠ΅ΠΌ ΡΠΎΡΠΌΠΈΡΡΠ΅ΡΡΡ ΡΠΏΠΈΡΠΎΠΊ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΎΠ² Π² CB2.
Π ΠΈΡ. 5
private
{ Private declarations }
Ole1C: OleVariant; //Π£ΠΊΠ°Π·Π°ΡΠ΅Π»Ρ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡ 1Π‘
OleSpr: OleVariant; //Π£ΠΊΠ°Π·Π°ΡΠ΅Π»Ρ Π½Π° ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ 1Π‘
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1. Button1Click (Sender: TObject);
var
ResOpen: integer;
Index: integer;
begin
if E2. Text = '' then
begin
ShowMessage ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ ΠΏΡΡΡ ΠΊ Π±Π°Π·Π΅ 1Π‘');
Exit;
end;
Ole1C := CreateOleObject (CB1.Text); //ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° 1Π‘ ΠΊΠ°ΠΊ
OLE //Automation
ResOpen := Ole1C. Initialize (Ole1C.RMTrade, '/D' + E2. Text + ' /M' + ' /N'
+ E4. Text + ' /P' + E5. Text, ''); //ΠΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 1Π‘ ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ
ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈΠ· E2, E4,E5
CB2.Items.Clear;
CB2.Text := '';
//ΠΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ 1Π‘. ΠΡΠ»ΠΈ ResOpen ΠΏΡΠΈ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ
ΠΏΡΠΈΠ½ΡΠ» //Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «-1», Π·Π½Π°ΡΠΈΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ.
if ResOpen = -1 then
begin ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ
SB1.Font.Color := 708 928; //ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΡΠ΅ΠΊΡΡΡ Π² SB1 ΠΎΡΡΠ΅Π½ΠΎΠΊ Π·Π΅Π»ΡΠ½ΠΎΠ³ΠΎ
ΡΠ²Π΅ΡΠ°
label5.Caption := 'Π‘ΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΎ!'; // Π² ΠΌΠ΅ΡΠΊΠ΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΡΠ΅ΠΊΡΡ ΡΡΠ°ΡΡΡΠ°
ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Π ΠΈΡ. 6
SB1.Visible := True; // Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ
label5.Visible := True;// Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ
Button2.Enabled := True; // Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅
ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΎΠ²
Button4.Enabled := True;// Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ
ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°
end
else
// ΠΡΠ»ΠΈ ResOpen ΠΏΡΠΈ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΈΠ½ΡΠ» //Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «0», Π·Π½Π°ΡΠΈΡ
ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Π½Π΅ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ.
begin
SB1.Font.Color := clRed;
label5.Caption := 'ΠΠ΅Ρ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ!';
Π ΠΈΡ. 7
SB1.Visible := True; //ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΡΠ΅ΠΊΡΡΡ Π² SB1 ΠΊΡΠ°ΡΠ½ΡΠΉ ΡΠ²Π΅Ρ
label5.Visible := True; // Π² ΠΌΠ΅ΡΠΊΠ΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΡΠ΅ΠΊΡΡ ΡΡΠ°ΡΡΡΠ° ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ
Button2.Enabled := False; // Π΄Π΅Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π½Π΅ΡΡ
ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ
Button4.Enabled := False; // Π΄Π΅Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π½Π΅ΡΡ
ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ
CB2.Items.Clear; // ΠΎΡΠΈΡΠ°Π΅ΠΌ ΡΠΏΠΈΡΠΎΠΊ, Π΅ΡΠ»ΠΈ Π΄ΠΎ ΡΡΠΎΠ³ΠΎ Π±ΡΠ»ΠΎ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Ρ
Π±Π°Π·ΠΎΠΉ
CB3.Items.Clear;
end;
if label5. Caption = 'ΠΠ΅Ρ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ!' then
Exit; //Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°
//ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΎΠ² Π² CB2
if not VarIsEmpty (Ole1C) then
begin
for Index := 1 to Ole1C.Metadata.Reference do
CB2.Items.Add (Ole1C.Metadata.Reference (Index).Identifier);
end;
end;
ΠΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Π‘ΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΡ, ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ²Π΅ΡΠΎΠ²ΠΎΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ SP1, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Ρ Π±Π°Π·ΠΎΠΉ 1Π‘ ΠΈΠ»ΠΈ Π½Π΅Ρ! ΠΡΠ»ΠΈ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ Π·Π΅Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ²Π΅ΡΠ°, ΡΠΎΠ³Π΄Π° Π±Π°Π·Π° ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Π°. ΠΡΠ»ΠΈ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ ΠΊΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΡΠ²Π΅ΡΠ°, ΡΠΎ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Π½Π΅ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ ΠΈ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΡΠ²Π΅ΡΠΎΠ²ΠΎΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ SP1, ΠΌΠΎΠΆΠ½ΠΎ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ ΠΏΡΠΈΡΠΈΠ½Ρ Π½Π΅ΡΠ΄Π°ΡΠ½ΠΎΠ³ΠΎ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ!
procedure TForm1. SB1Click (Sender: TObject);
begin
if label5. Caption = 'ΠΠ΅Ρ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ!' then
with Application do
begin
NormalizeTopMosts;
MessageBox ('ΠΠ΅Π²Π΅ΡΠ½ΠΎ ΡΠΊΠ°Π·Π°Π½ ΠΏΡΡΡ ΠΊ ΠΊΠ°ΡΠ°Π»ΠΎΠ³Ρ Ρ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΠ 1Π‘',
'ΠΠΎΠ·ΠΌΠΎΠΆΠ½Π°Ρ ΠΏΡΠΈΡΠΈΠ½Π°');
RestoreTopMosts;
end
else
with Application do
begin
NormalizeTopMosts;
MessageBox ('Π‘ΡΠ°Π±ΠΈΠ»ΡΠ½ΠΎΠ΅ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Ρ ΠΠ 1Π‘', '');
RestoreTopMosts;
end
end;
Π ΠΈΡ. 8
ΠΠ½ΠΎΠΏΠΊΠ° Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΏΠΎ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅Ρ, Π²ΡΠ±ΡΠ°Π½ Π»ΠΈ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ Π² CB2. ΠΡΠ»ΠΈ Π½Π΅Ρ, ΡΠΎ ΠΎΠΏΠΎΠ²Π΅ΡΠ°Π΅Ρ ΠΎΠ± ΡΡΠΎΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, Π΅ΡΠ»ΠΈ Π΄Π°, ΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ ΠΈΠ· Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΡΠΈΡ Π΄Π°Π½Π½ΡΡ Π² ListBox1.
procedure TForm1. Button2Click (Sender: TObject);
begin
if CB2. Text = '' then //Π΅ΡΠ»ΠΈ Π² ΡΠΏΠΈΡΠΊΠ΅ Π½Π΅Ρ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°, Π²ΡΠΏΠ»ΡΠ²Π°Π΅Ρ ΠΎΠΊΠΎΡΠΊΠΎ
ΠΎΠΏΠΎΠ²Π΅ΡΠ΅Π½ΠΈΡ
Begin
with Application do
begin
NormalizeTopMosts;
MessageBox ('ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ!', 'ΠΠ ΠΠΠ£ΠΠ ΠΠΠΠΠΠΠ');
RestoreTopMosts;
end;
Exit;
end;
OleSpr := Unassigned; //ΠΠ±Π½ΡΠ»ΡΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, Ρ. Π΅. ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ
ΡΠ½ΠΈΡΡΠΎΠΆΠ΅Π½ΠΈΠ΅ OLE-//ΠΎΠ±ΡΠ΅ΠΊΡΠ°
ListBox1.Items.Clear; //ΠΎΡΠΈΡΠ°Π΅ΠΌ ΡΠΏΠΈΡΠΎΠΊ, Π΅ΡΠ»ΠΈ Π² Π½ΡΠΌ Π±ΡΠ»ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½Ρ
Π΄Π°Π½Π½ΡΠ΅
if not VarIsEmpty (Ole1C) then //Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Ole1C Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ
Π±ΡΡΡ ΠΏΡΡΡΡΠΌ, //Ρ.Π΅. ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΡΡΠΎ 1Π‘ Π·Π°ΠΏΡΡΠ΅Π½Π° ΠΈ ΡΠ²ΡΠ·Ρ Π½Π΅ΠΉ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π°
Begin
OleSpr := Ole1C. CreateObject ('Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ.' + CB2. Text); //ΡΠΎΠ·Π΄Π°Π΅ΠΌ
Π²ΠΈΡΡΡΠ°Π»ΡΠ½ΡΠΉ //ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ
if not VarIsEmpty (OleSpr) then
Begin
if OleSpr. ΠΡΠ±ΡΠ°ΡΡΠΠ»Π΅ΠΌΠ΅Π½ΡΡ > 0 then //Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π²ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ
ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°, Ρ. Π΅. //ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌ ΠΈΡ ΠΈΠ· ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° Π²
Π²ΠΈΡΡΡΠ°Π»ΡΠ½ΡΠΉ
Begin
while OleSpr. ΠΠΎΠ»ΡΡΠΈΡΡΠΠ»Π΅ΠΌΠ΅Π½Ρ > 0 do //ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠΉ ΠΈΠ·
Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ //ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°
Begin
if (OleSpr.ΠΡΠΎΠΡΡΠΏΠΏΠ°) <= 0 then
begin
ListBox1.Items.Add (
Trim (OleSpr.ΠΠΎΠ΄) + ' '
+ Trim (OleSpr.ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅)
);
end;
end;
end;
end;
end;
OleSpr := Unassigned;
end;
ΠΠΎΠ³Π΄Π° ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ Π²ΡΠ±ΡΠ°Π½, ΠΏΠΎ ΡΠΎΠ±ΡΡΠΈΡ OnChange ΠΎΠ±ΡΠ΅ΠΊΡΠ° CB2 Π² CB3 ΡΠΎΡΠΌΠΈΡΡΠ΅ΡΡΡ ΡΠΏΠΈΡΠΎΠΊ Π·Π°ΠΏΠΈΡΠ΅ΠΉ (Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ) ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ΄ΡΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ Π΄Π»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ! ΠΡΠ»ΠΈ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅ ΠΎΡΡΡΡΡΡΠ²ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ, ΡΠΎΠ³Π΄Π° ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ «Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΏΡΡΡ»
Π ΠΈΡ. 9
procedure TForm1. CB2Change (Sender: TObject);
var
Schetchik: integer;
begin
OleSpr := Unassigned;
CB3.Items.Clear;
CB3.Text := '';
Schetchik := 0;
if VarIsEmpty (OleSpr) then
begin
OleSpr := Ole1C. CreateObject ('Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ.' + CB2. Text);
OleSpr.ΠΡΠ±ΡΠ°ΡΡΠΠ»Π΅ΠΌΠ΅Π½ΡΡ;
while OleSpr. ΠΠΎΠ»ΡΡΠΈΡΡΠΠ»Π΅ΠΌΠ΅Π½Ρ = 1 do
begin
CB3.Items.Add (OleSpr.ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅);
inc (Schetchik);
end;
if Schetchik = 0 then
ShowMessage ('Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΏΡΡΡ.');
end;
OleSpr := Unassigned;
end;
ΠΠ½ΠΎΠΏΠΊΠ° ΠΠ·ΠΌΠ΅Π½ΠΈΡΡ. Π§ΡΠΎΠ±Ρ Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ, Π½ΡΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΈΠ· Π²ΡΠΏΠ°Π΄Π°ΡΡΠ΅Π³ΠΎ ΡΠΏΠΈΡΠΊΠ° CB3 Π·Π°ΠΏΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΡ ΠΌΡ Ρ ΠΎΡΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ. ΠΠΎΠ³Π΄Π° Π·Π°ΠΏΠΈΡΡ Π²ΡΠ±ΡΠ°Π½Π° ΠΏΠΎ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, ΡΠΎ ΡΡΡΠΎΠΊΠΎΠΉ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° Π½ΠΎΠ²ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠΎΡΠ»Π΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΈ Π² ListBox1 ΡΠ²ΠΈΠ΄Π΅ΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ.
Π ΠΈΡ. 10
procedure TForm1. Button4Click (Sender: TObject); //ΠΠΎΠΈΡΠΊ ΠΈΠ½Ρ. ΠΈ Π΅Ρ
ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅
var
St: string;
begin
if CB3. Text = '' then //ΠΡΠ΅Π΄ΡΠΏΡΠ΅ΠΆΠ΄Π°ΡΡΠ΅Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅
Begin
with Application do
begin
NormalizeTopMosts;
MessageBox ('ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π·Π°ΠΏΠΈΡΡ!', 'ΠΠ ΠΠΠ£ΠΠ ΠΠΠΠΠΠΠ');
RestoreTopMosts;
end;
Exit;
end;
St := '';
OleSpr := Unassigned;
if VarIsEmpty (OleSpr) then
begin
OleSpr := Ole1C. CreateObject ('Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ.' + CB2. Text);
OleSpr.ΠΡΠ±ΡΠ°ΡΡΠΠ»Π΅ΠΌΠ΅Π½ΡΡ;
OleSpr.ΠΠ°ΠΉΡΠΈΠΠΎΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ (CB3.Text, 0); // ΠΠΎΠΈΡΠΊ Π·Π°ΠΏΠΈΡΠΈ Π²
ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅
if InputQuery (CB3.Text,'ΠΠΎΠ²ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅', St) then
begin
St := Trim (St);
OleSpr.ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ := St;
OleSpr.ΠΠ°ΠΏΠΈΡΠ°ΡΡ;
OleSpr.ΠΡΠ±ΡΠ°ΡΡΠΠ»Π΅ΠΌΠ΅Π½ΡΡ;
CB3.Items.Clear;
while OleSpr. ΠΠΎΠ»ΡΡΠΈΡΡΠΠ»Π΅ΠΌΠ΅Π½Ρ = 1 do
begin
CB3.Items.Add (OleSpr.ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅);
end;
end;
end;
OleSpr := Unassigned;
end;
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΡΠΎΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡ ΠΏΡΠΎΠ΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΠΎΠ²Π°Π» Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Borland Delphi 7 Ρ ΠΏΠ»Π°ΡΡΠΎΡΠΌΠΎΠΉ 1Π‘: ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ OLE Automation. Π ΠΈΠΌΠ΅Π½Π½ΠΎ:
— ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Ρ Π±Π°Π·ΠΎΠΉ 1Π‘, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΎΠΏΡΠΎΠ²ΠΎΠΆΠ΄Π°Π»ΠΎΡΡ Π²ΡΠ±ΠΎΡΠΎΠΌ ΠΈΠΌΠ΅Π½ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈ Π²Π²ΠΎΠ΄ΠΎΠΌ Π΅Π³ΠΎ ΠΏΠ°ΡΠΎΠ»Ρ (Π΅ΡΠ»ΠΈ ΡΠ°ΠΊΠΎΠ²ΠΎΠΉ ΠΈΠΌΠ΅Π΅ΡΡΡ);
— ΡΠ±ΠΎΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎΠ± ΠΈΠΌΠ΅ΡΡΠΈΡ ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°Ρ Π² Π±Π°Π·Π΅;
— ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ΠΌ Π²ΡΠ΅Ρ Π·Π°ΠΏΠΈΡΠ΅ΠΉ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΡ Π² Π»ΡΠ±ΠΎΠΌ ΠΈΠ· Π²ΡΠ±ΡΠ°Π½Π½ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΎΠ²;
— ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, Π²ΡΠ±ΡΠ°Π½Π½ΡΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°;
ΠΠΎΠ»ΡΠ·ΡΡΡΡ Π½Π°ΠΏΠΈΡΠ°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ, ΠΌΠΎΠΆΠ½ΠΎ Π»Π΅Π³ΠΊΠΎ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ ΠΊ Π±Π°Π·Π΅ 1Π‘ ΠΈ ΠΈΠ·ΡΠΌΠ°ΡΡ Π½ΡΠΆΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π΄Π»Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π² Borland Delphi 7, Π΄Π»Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° ΠΈΡ Π² Π±Π°Π·Ρ 1Π‘, Ρ ΠΎΡΡ Π·Π°Π΄Π°ΡΠΈ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΠΌΠΈ ΠΈ ΡΡΠΎ Π½Π΅ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½Π°Ρ, Π΄Π»Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΊΠΎΠ½ΡΠΈΠ³ΡΡΠ°ΡΠΈΠΈ 1Π‘.
1. ΠΠΎΠΏΠΎΠ² Π‘. Π. Delphi ΠΈ 1Π‘ ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΠΌΠ΅Π½Π°. — Π‘ΠΠ±.: ΠΠΠ₯-ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2007. — 592Ρ.
2. ΠΠ»Π΅ΠΊΡΠ°Π½Π΄Ρ ΠΠ²Π΄ΠΎΡΠΈΠ½ Delphi ΠΈ 1C — ΡΠΊΡΠΏΠΎΡΡ ΠΈ ΠΈΠΌΠΏΠΎΡΡ.
3. http://www.russika.ru/t.php?t=4197
4. http://www.gturp.spb.ru/fkl/fasutp/kaf/kpm/kpm.files/Delfi.pdf
5. http://automationlab.ru/index.php/ispy/213−27