Deutsch English
Alphabetischer Index
Array-Funktionen
CGI-Funktionen
Datentypen
  • BYTE
  • CHAR
  • INTEGER
  • REAL
  • STRING
  • TBITS
    Datums/Uhrzeit-Funktionen
    Debugging
    Operatoren
    Ramtext-Funktionen
    Selektion
    Socket-Funktionen
    Sonstige-Funktionen
    Sprachelemente
    Statistik-Funktionen
    Stream-Funktionen
    String-Funktionen
    System-Funktionen
    Tabellen-Funktionen
    Text-Funktionen
    Volltext-Funktionen
    Zahlen-Funktionen
    Home    ▄berblick    Suche    Impressum    Kontakt    Mitglieder
    Themenkomplex Datentypen
    Funktion CHAR
    Kurz Nimmt exakt ein Zeichen auf
    Syntax
    Parameter
    Ergebnis
    Siehe auch:
    STRING INTEGER REAL BYTE TBITS
    Beschreibung Eine CHAR-Variable belegt genau 1 Byte im Speicher. In ihr kann ein beliebiges Zeichen von Chr(0) bis Chr(255) abgelegt werden.

    Der Datentyp CHAR ist insbesondere bei der Verwendung der Stream-Funktionen in Form von Arrays von Relevanz.

    Beispiel 1: SMTP-Client

    Ein SMTP Client

    PROCEDURE send_str(s : INTEGER; l : STRING);
    VAR p : CHAR[1000];
      p[0]:=l+^M+^J; PutSock(s,p,length(l)+2)
      cgiwriteln('> '+l)
    ENDPROC
    PROCEDURE recv_str(s : INTEGER) : STRING;
    VAR p : CHAR[1000];
    VAR i : INTEGER;
    VAR res : STRING;
      nloop(i,GetSock(s,p,1000)-1,res:=res+p[i]);
      RETURN res
    ENDPROC
    
    PROCEDURE Main;
    VAR p : CHAR[1000];
    VAR i : INTEGER;
      cgiclosebuffer;
      cgiwriteln('content-type: text/plain');
      cgiwriteln('');
      IF i:=OpenSock('mail.tdb-engine.de:25') THEN
        cgiwriteln(recv_str(i));
        send_str(i,'HELO mail.tdb.de');
        cgiwriteln(recv_str(i));
        send_str(i,'MAIL FROM:test@tdb-engine.de');
        cgiwriteln(recv_str(i));
        send_str(i,'RCPT TO:test2@tdb-engine.de');
        cgiwriteln(recv_str(i));
        send_str(i,'DATA')
        cgiwriteln(recv_str(i));
        send_str(i,'Das ist ein kleiner Test.');
        send_str(i,'Und das ist die zweite Zeile');
        send_str(i,'.');
        cgiwriteln(recv_str(i));
        send_str(i,'QUIT');
        cgiwriteln(recv_str(i));
        CloseSock(i)
      ELSE
        cgiwriteln('done.')
      END
    ENDPROC
    


    tdbengine chat
    irc.tdbengine.org
    #tdbengine

       Copyright © 2003-2004 tdb Software Service GmbH
       Alle rechte vorbehalten. / All rights reserved
       Letzte ─nderung: 21.10.2004
    {Fehler für :execmacro{execmacro="sessionspy"}