Projektbericht 796.8 KByte - Technikpreis

19 5 Übertragung
5.4 Übertragung in eine Mailbox
Um die Daten nun z.B. alle 30 Minuten zu übertragen, ist es nur noch notwendig eine
Verbindung mit dem nächsten User-Einstieg aufzubauen, sich mit einer Mailbox zu
connecten und die Mail zu senden. Anschließend kann die Verbindung beendet werden.
Dies geschieht bei meiner Software durch folgenden Code:
procedure TPaxonThread.Connect(Call : WideString);
begin
Connection := myPaxon.FindConnection(Call);
PaxonStr := ’Connection gefunden’;
Synchronize(UpdateLabel);
If Connection = Nil Then
begin
Connection := myPaxon.Connect(Call);
PaxonStr := ’Neu verbunden’;
Synchronize(UpdateLabel);
end;
end;
procedure TPaxonThread.SendToMailbox(Einstieg : WideString; Board :
WideString; Betreff : WideString);
begin
Connect(Einstieg);
Connection.SendTextLine(’ ’);
Connection.WaitForText(’=>’);
Connection.SendTextLine(’m’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’ ’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’s’ + ’ ’ + Board + ’ ’ + Betreff);
Connection.WaitForText(’:’);
Connection.SendTextLine(’Diese Mail wurde automatisch generiert’);
Synchronize(SendSensorData);
Connection.SendTextLine(myString);
Connection.SendTextLine(’NNNN’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’ ’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’q’);
SendMailNext := False;
end;