Kostenlos/Kostenpflichtig über Internet SMS versenden DELPHI

[stoxx]

also was ich mal verwendet habe ist folgende Lösung, funktioniert aber nur mit D2.
Funktionert auch mit anderen Netzen eigentlich, aber den Balloon Telecom Manager find ich irgendwie nicht mehr.

Man brauche:
eine ISDN Karte

Man nehme das Programm D2 MessageGo:

Download hier: http://www.balloon.de/d2messagego/


dann folgenden Text zum verschicken:

Delphi-Quellcode:

with TDDEClientconv.create(self) do begin
 SetLink('ballOON','CALLOUT');

   for i := 0 to nrlist.count -1 do
    begin
    PokeData('PAGERMSG',pchar(';;'+'6'+ ';' + String(nrlist[i]) + ';' + st ));
    end; // von for
 CloseLink;
 free;
end;

Die Lösung ist aber zu Zeiten des Internets relativ altmodisch, muss ich zugeben