-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
7. Mär 2010
also der letzte log war vom echten modem da hats ja geklappt... ja das virtuelle mach da einiges falsch denke ich, aber ich mache jetzt mit dem echten weiter :)
Danke dir für deine Hilfe.
Allen anderen auch, jetzt endlich
:)
//closed
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
7. Mär 2010
okay.. das tut mir jetzt echt leid und ist mir wirklich peinlich :-P
Ich habe das Programm jetzt mal direkt auf dem Server mit der SMS Software ausprobiert und siehe da:
549 13:13:38 Pcom_bridge.exe IRP_MJ_CREATE USBSER000 SUCCESS Options: Open
550 13:13:38 Pcom_bridge.exe IOCTL_SERIAL_SET_QUEUE_SIZE USBSER000 SUCCESS InSize: 4096 OutSize: 4096 ...
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
7. Mär 2010
1) In den ComPort Options sind alle timeouts auf 0
2) Size = 0
3) FlowContorl = None
Wenn ich enter drücke kommt die msgbox - dh enter + #10#13, ich kann auch alt+010 bzw alt+013 eingeben, es kommt auch das fenster.
Wenn ich "ok"+#10#13 im terminal schreibe, Steht im Programm: "Input: o" beim nächsten mal, wenn ich etwas eintippe + enter nur "Input:" dh nur der erste buchstabe wird...
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
6. Mär 2010
okay danke :)
habe das mal geändert und ja, wenn ich einfach ok+(enter) eingebe dann kommt die MsgBox mit der länge des strings und der erste buchstabe "o" wird ausgegeben... wenn ich es nochmal mache, ist die zeichenkette nur noch leer... also ja immer den ersten buchstaben kann er ausgeben.
Danach sollte an den Buffer clearen oder? naja egal - ich will mal, dass er das ganze packet liest
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
6. Mär 2010
super, also hier mal eine kurze (!!) beschreibung:
hab 2 edits:
1) gibt den comport an ('com6' in meinem Fall)
2) gibt den Befehl an, den man ans modem senden will (nur mal als test ob alles funktioniert)
Buttons:
1) 'Test Connection' -> code:
procedure TForm1.Button2Click(Sender: TObject);
var StartIni : TIniFile;
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
6. Mär 2010
also... danke für den Hinweis jetzt seh ich der String ist: #0 hmm.. toll hätte "ok" sein sollen.
Das lesen von Paketen klappt also noch nicht so ganz.
Das mim Terminalfenster:
Folgende Prozedur:
1) In meinem Programm tippe ich bei Befehl senden: "at" ein (als wäre es ein gsm modem)
2) Im Modememulator (siehe screen) sehe ich, was angekommen ist und antworte, als wäre ich das Modem mit...
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
6. Mär 2010
so hab jetzt mal was überprüft:
1) Die Länge des output strings von TComDataPacket ist unterscheidlich, dh es werden Leerzeichen sozusagen "gelesen"
2) Ich hab den "Buffer" mal nach einer Eingabe des "Modems" ausgelesen:
//----
var str2 : TComBuffer;
begin
str2:=ComPort1.Buffer;
ShowMessage(Char(str2));
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
6. Mär 2010
nei, nein :) habe natürlich enter gedrückt!
Ich meinte: In meinem programm schreibe ich "at" und dann steht im Terinalfenster vom VirtualPort:
"Recieved: at" dann schreibe ich halt "ok+(enter)" und er erfasst zwar im delphi programm, dass sozusagen das packet aus ist, aber er zeigt mir nur ein leeres Fenster an, das je nach größe des ReadBuffers groß ist. Also er gibt mir den String nicht aus!...
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
ah ich habs gefunden:
procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: String); //da ist es ja, das str!
begin
ShowMessage(str);
end;
wenn ich das so ausführe und im terminalfenster vom virtual com port das eingebe:
#10
OK
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
wunderbar!
ich dachte eig, wenn ich es im Object Inspector bei den Einstellungen einfüge, wird es eh als char gespeichert, naja dem war nicht so.
Gut jetzt hab ich auch gleich Start: #10 Stop: #13 eingefügt, das geht super.. jetzt noch die entscheidende Frage (ich komm mir echt schon doof vor): wo wird der String gespeicher??
Ich hab grad in Help gesucht, da wird nirgends eine methode zum...
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
ja... :) viel glück dabei noch ^^
Ich will ja eigentlich nur wissen, wie ich die Echos vom Modem ausgeben kann in meinem Programm? Wie schon erwähnt verwende ich TComPort und das Paketobjekt funzt nicht bei mir.
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
es ist ein Nokia CS-15 usb umts modem, umts deswegen, weil unser Provider nur auf umts basis funktioniert.
Und es muss so über einen COM Port gehen, da die software leider veraltet ist.
Also von den Befehlen her:
At ... OK
at+cpin? ... +CPIN: Ready
usw... ganz einfaches gsm modem, es geht mir nur darum:
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
naja ich teste das programm gerade nur auf einem virtuellen modem, indem ich di eigentlichen antworten slbr reinschreibe... aberich bekomme eben diese nicht
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
naja mein Problem ist ja, dass die Pakete garnicht erkannt werden.
Ich habe ja beim Startparameter nichts eingetragen, das heißt, es muss bei jedem zeichen beginnen zu lesen und stopparameter ist #13 dh wenn ich #13 eingebe müsste es fertig gelesen haben.
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
okay ich habe jetzt mal TComPort installiert und alles verwendet... also es läuft super, nur beim auslesen hab ich noch probleme:
Also wenn ich
ComPort1.ReadFile(str,255);
mache dann wird ja immer nur 1 zeichen gelesen -> ComDataPacket, stimmt doch oder damit kann man es als "ganzes Packet" lesen?
So dann hab ich start parameter leer gelassen und als Stopparam ist #13, da das Modem ja...
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
okay ... danke :) Ich versuch mal TComPort und melde dann evtl Fehler!
und ja, ich hab dich einfach mal weiterzitiert ;)
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
5. Mär 2010
muss ich überhaupt extra die Antworten des Modems abwarten und ausgeben, oder geht das iwie automatisch, also als eine Art "echo"?
Wenn man es extra abfragen muss, wäre eine while schleife dafür geeignet?
var input: string;
NumberOfBytesRead : dword;
Buffer : array of char;
begin
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
4. Mär 2010
ah super danke.. ich habe zwar gegoogelt, aber erst jetzt was gefunden!
Danke sehr...
//erledigt :) - Doch nicht!
Will da gleich weiterarbeiten:
Hab mir ein Com Monitor runtergeladen und sehe jetzt genau was das Programm sendet... ich möchte jetzt einmal selber eines schreiben, dass diese Befehle sendet, genau wie zb Hyperterminal.
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
4. Mär 2010
ja, also ich weiß welche Befehle am Modem funktionieren und genau die Befehle von der SMSSoftware sind ja das Problem... deswegen "spannend" den Port auslesen :)
Leider hab ich von dem Anbieter noch keine Infos bekommen, welche Befehle gesendet werden und in welchem Format genau (Pud/Text mode).
Da das ganze schnell gelöst werden sollte, dachte ich so könnte das schnell gehen...
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
4. Mär 2010
hmm... okay also vielleicht wirds klarer:
Modem -> USB Slot
In windows Settings: Modems -> Advanced Port Settings. Dort in dem drop down menu einfach den 'COM1' ausgewählt. (Siehe Anhang)
Deshalb hab ich eigentlich keinen "Hardware COM1" Anschluss, da es ja über usb geht- oder versteh ich da was falsch?
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
3. Mär 2010
also vielleicht ist das nicht so klar rausgekommen :)
Die SMS Software unterstützt als Modemlocation nur COM1-5 und ich habe das USB Modem am Anschluss COM1 eingerichtet... also softwaremäßig, damit das ganze läuft. Deshalb ist das alles bisschen komplizierter für mich :)
-
Forum: Win32/Win64 API (native code)
Delphi
by schweindi,
3. Mär 2010
Hallo alle,
wir verwenden eine SMS Notification software, die Broadcasts und Notifications per sms an alle Beützer versendet.
Das funktioniert so:
1) Ein ASP.NET Portal & SQL Datenbank ermöglichen die Eingabe von Benachrichtigungen und Nummern der Empfänger
2) Diese Daten werden von einer SMSServerRuntime in gsm befehle umgewandelt
3) Diese werden an COM1 geschickt, wobei COM1 ein USBModem...
