Projektbericht 796.8 KByte - Technikpreis
Projektbericht 796.8 KByte - Technikpreis
Projektbericht 796.8 KByte - Technikpreis
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
17 5 Übertragung<br />
5.2 Packet Radio Station<br />
Für die Datenübertragung benötigt man neben einem Computer und einem handelsüblichen<br />
Amateurfunk-Transceiver ein Modem. Das Modem stellt zusammen mit entsprechender<br />
Software (z.B. FlexNet) die Verbindung zum Packet Radio Netz her und<br />
bewerkstelligt den Datentransfer, indem es die Befehle und Nutzdaten in Pakete des<br />
AX.25 Protokoll einbettet. Das AX.25 Protokoll ist eine für den Amateurfunk modifizierte<br />
Variante des kommerziellen X.25 Übertragungsprotokolls. Es sorgt für eine sichere<br />
und fehlerfreie Datenübertragung Statt des Modems und der Software (FlexNet) kann<br />
auch ein TNC (Terminal Node Controller) eingesetzt werden.<br />
5.3 Terminalprogramm Paxon<br />
Dem Nutzer steht mit einem Terminalprogramm wie Paxon eine leicht zu bedienende<br />
Oberfläche für die Betriebsart Packet Radio auf modernen Windows PCs zur Verfügung.<br />
Paxon ist aber nicht - wie andere Terminalprogramm unter DOS (z.B. SP) - fähig<br />
andere Programme aufzurufen bzw. fernzusteuern. Um auf einem modernen Windows<br />
PC dennoch die ermittelten Wetterparameter zu übertragen, muss meine Software die<br />
Übertragung selbst übernehmen. Glücklicherweise bietet Paxon eine COM- Programmierschnittstelle,<br />
mit der man auf wichtige Funktionen des Programms zugreifen kann,<br />
ohne sich um die eigentlichen Funktionsweise des Verbindungsaufbaus kümmern zu müssen.<br />
Dafür wird zunächst die Component Object Model (COM) Library mit CoInitialize initialisiert<br />
und anschließend mit CreateOleObject eine Referenz auf die COM-Schnittstelle<br />
von Paxon zurückgegeben. Mit dieser ist es nun möglich, Funktionen von Paxon wie<br />
FindConnection, Connect, SendTextLine, WaitForText oder Disconnect aufzurufen.<br />
If CoInitialize(NIL) S_OK then<br />
begin<br />
CoUninitialize;<br />
exit;<br />
end;<br />
// Paxon finden<br />
if FindWindow(’tHauptfenster’, NIL) > 0 then<br />
begin<br />
myPaxon := CreateOLEObject(’Paxon.Application’) as iApplication;