[Delphi] jalcds besturen

[Biglines]

hallo, ik ben bezig met een lcd menu voor mijn pc, zodat ik mbv een paar buttons winamp/jalcds kan besturen.

zoals op http://www.jalcds.de/file...P-IP-Interface%20v3.0.pdf te vinden is, kan dit dmv tcp-ip.

op mijn pc draait:
• Winamp 2.91
• jalcds 3.11
• Winampcommcontrol (om de knoppen te besturen, wordt later nog in dit delphi progje ingebakken)
• Dit delphi progje

ik haal de menu's uit een txt file, dat is geen probleem, het probleem is dat ik via tcp/ip command wil sturen naar jaLCDs.

Weet iemand hoe? (dmv bijvoorbeeld een function die het stuurt en reply trugzet in Tstringlist?)

edit:

delphi 7 console app

[ Voor 4% gewijzigd door Biglines op 23-03-2004 14:56 ]

[Creepy]

Heb je al gekeken naar de TCP componenten bij Delphi?

[Biglines]

de help van delphi is nogal onduidelijk, ik vind wel een hoop over tcp dingetjes, maar zou bij god niet weten hoe ik dat zou moeten openen, sturen, ontvangen etc.

het is toch mogelijk om gewoon localhost te gebruiken?


(pas begonnen met delphi)

[ Voor 7% gewijzigd door Biglines op 23-03-2004 15:06 ]

[Biglines]

Hoe moet ik dan ook de poort (een van: 9830-9834) instellen?

[Biglines]

hier is een vb voorbeeld progje, iemand enig idee hoe ik dit in delphi doe?

edit:

hier hele zipfile met alle bestanden van dit voorbeeldprogje:
http://www.jalcds.de/dl.php?id=1020884995

code:

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Begin VB.Form Form1 
   Caption         =   "jaLCDs TCP-IP-Interface Beispiel"
   ClientHeight    =   1380
   ClientLeft      =   60
   ClientTop       =   360
   ClientWidth     =   3930
   LinkTopic       =   "Form1"
   ScaleHeight     =   1380
   ScaleWidth      =   3930
   StartUpPosition =   3  'Windows-Standard
   Begin VB.Timer timeout 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   2280
      Top             =   840
   End
   Begin MSWinsockLib.Winsock winsock 
      Left            =   2580
      Top             =   780
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      RemoteHost      =   "127.0.0.1"
      RemotePort      =   9830
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Ende"
      Height          =   315
      Left            =   180
      TabIndex        =   3
      Top             =   960
      Width           =   3555
   End
   Begin VB.CommandButton Command1 
      Caption         =   "setzen"
      Height          =   375
      Left            =   2400
      TabIndex        =   2
      Top             =   300
      Width           =   1335
   End
   Begin VB.TextBox varwert 
      Height          =   315
      Left            =   180
      TabIndex        =   1
      Text            =   "Wert"
      Top             =   480
      Width           =   1995
   End
   Begin VB.TextBox varname 
      Height          =   285
      Left            =   180
      TabIndex        =   0
      Text            =   "Variablenname"
      Top             =   120
      Width           =   1995
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If varname.Text = "" Or varwert.Text = "" Then Exit Sub 'falls nichts eingegeben wurde, Übertragung gar nicht erst starten
winsock.Connect 'Mittels Winsock-Element eine Verbindung zu jaLCDs aufbauen, IP-Adresse und Port sind bereits in den Eigenschaften des Elements eingestellt

timeout.Enabled = True 'den Timer fürs Timeout aktivieren
Do
    DoEvents
Loop Until rcvddata <> "" Or timeout.Enabled = False 'so lange warten, bis entweder Daten ankommen oder das Timeout erreicht wurde
rcvddata = ""
If timeout.Enabled = False Then 'Im Falle eines Timeouts eine Fehlermeldung erzeugen
    MsgBox "jaLCDs konnte nicht kontaktiert werden!"
    Exit Sub
End If
timeout.Enabled = False
'ab hier sind die beiden Begrüßungszeilen nach Verbindungsaufbau fertig übertragen

winsock.SendData "setvar " + varname.Text + " " + varwert.Text & (Chr$(13) & Chr$(10)) 'Befehl, die Variable zu setzen, wird übertragen

timeout.Enabled = True
Do
    DoEvents
Loop Until rcvddata <> "" Or timeout.Enabled = False 'erneut so lange warten, bis entweder Daten ankommen oder das Timeout erreicht wurde
timeout.Enabled = False
MsgBox rcvddata 'die Antwort von jaLCDs ausgeben
rcvddata = ""
winsock.Close 'Die Verbindung wieder trennen (Anm: die Verbindung muss nicht zwingend mit "exit" getrennt werden, dies hier hat denselben Effekt
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub timeout_Timer()
timeout.Enabled = False 'wenn das Timeout erreicht ist, den Timer wieder deaktivieren
End Sub

Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
winsock.GetData rcvddata 'Ankommende Daten in die globale Variable rcvddata einlesen
End Sub

(sorry voor brede text, maar tis code he.. )

[ Voor 7% gewijzigd door Biglines op 23-03-2004 15:32 ]

[LordLarry]

Kijk even naar C:\Program Files\Borland\Delphi7\Demos\Internet\NetChat of de Demo's van Indy op http://www.indyproject.org/download/Borland.html

[Biglines]

het probleem is vooral dat ik een console application wil, en geen normaal proggy

[Creepy]

Biglines schreef op 23 maart 2004 @ 16:51:
het probleem is vooral dat ik een console application wil, en geen normaal proggy

Dat is geen probleem. Je zult dan de gebruikte componenten zelf in code moeten creeeren i.p.v. ze op een form te slepen.

[Tomatoman]

Creepy schreef op 23 maart 2004 @ 17:53:
[...]

Dat is geen probleem. Je zult dan de gebruikte componenten zelf in code moeten creeeren i.p.v. ze op een form te slepen.

Je kunt ze ook in een TDataModule zetten, zodat je toch nog design-time support hebt.

[Biglines]

Creepy schreef op 23 maart 2004 @ 17:53:
[...]

Dat is geen probleem. Je zult dan de gebruikte componenten zelf in code moeten creeeren i.p.v. ze op een form te slepen.

hoe creer ik ze dan?

[Verwijderd]

Biglines schreef op 23 maart 2004 @ 18:20:hoe creer ik ze dan?

Nou gewoon door in een boek te kijken of de help te lezen.......

Delphi:

var idTCPServer: TIdTCPServer;
begin
  idTCPServer := TIdTCPServer.Create(nil);
  try


  finally
    idTCPServer.Free;
  end;

[Biglines]

in een boek kijken wordt een beetje bemoeilijkt door het feit dat ik geen boek heb, en de help lezen heb ik gedaan (zoals eerder gezegt). maar bedankt

[Creepy]

Biglines schreef op 23 maart 2004 @ 19:02:
in een boek kijken wordt een beetje bemoeilijkt door het feit dat ik geen boek heb, en de help lezen heb ik gedaan (zoals eerder gezegt). maar bedankt

En online tutorials heb je ook niet kunnen vinden?

Sorry, maar geen boek hebben is geen excuus. En anders gebruik je de oplossing die tomatoman al aangaf

[ Voor 8% gewijzigd door Creepy op 23-03-2004 19:13 ]

[Biglines]

uhm, als ik het kon vinden zou ik het hier toch niet posten?

maarre, tis gelukt:

code:

program BigOS;

{$APPTYPE CONSOLE}

uses
   SysUtils, StrUtils, Classes, Sockets, IdTelnet;


var
  text : String;
  i : Integer;
  idTelnet1: TIdtelnet;


begin
  idTelnet1 := TIdtelnet.Create(nil);
  idTelnet1.Host := '127.0.0.1';
  idTelnet1.Port := 9830;
  idTelnet1.Connect;


   try
    text := 'screen ' + ParamStr(1);
    for i := 1 to length(text) do
     idTelnet1.SendCh(text[i]);
     idTelnet1.SendCh(#13);
   finally
     idTelnet1.Disconnect;
   end;
end.

met een telnet verbinding, weenie of tcp ook gewoon werkt, maar dit werkt iig

edit:

hmm telnet is blijkbaar zware library, want t progje is maar liefst 165kb groot

[ Voor 29% gewijzigd door Biglines op 23-03-2004 19:52 ]

[Verwijderd]

Alleen een try...finally...end er om heen zou wel netjes zijn, waarin je het geheugen weer vrijgeeft.

[Biglines]

dis mn eerst delphi app
hoe bedoel je geheugen vrijgeven, dis een console app, die voert t een keer uit, dan wordt t geheugen toch al gecleard?

[eghie]

Biglines schreef op 23 maart 2004 @ 22:37:
dis mn eerst delphi app
hoe bedoel je geheugen vrijgeven, dis een console app, die voert t een keer uit, dan wordt t geheugen toch al gecleard?

Hij bedoelt dat je na "idTelnet1.Disconnect;" idTelnet1.Free; moet zetten, want dan haalt hij dat componentje ook uit het geheugen. Wel binnen je finally statement.

[Biglines]

hmm, een probleempje, hij veranderd de screen maar af en toe, dus ik denk dat het niet altijd helemaal door komt, hoe maak ik hiervan dat hij eerst wacht op verbinding (jalcds stuurd dan msg) en dan pas gaat versturen, en dan weer op reply wacht?

edit:

vogges mij al manier gevonden, met idtelnet1.connected
moet m vanmiddag nog ff proberen

[ Voor 21% gewijzigd door Biglines op 24-03-2004 07:35 ]

[Biglines]

hmm, met idtelnet1.connected werkt het niet, iemand nog een ideetje? (een wait functie ofzow na het connecten?)

[LordLarry]

Zou niet nodig moeten zijn. Ik zou eens gaan debuggen en kijken wat er mis gaat.

[Biglines]

uhm, hij doet het wel af en toe..

[Biglines]

hmm, ik krijg m maar niet zo dattie t altijd doet, hoe zorg ik ervoor dattie in een console prog ook kan wachten tot hij data trugkrijgt? (connection reply wachten en kijken of commando goed uitgevoerd is)

[LordLarry]

Dat doet Indy al. Indy is blocking. En met de info die jij geeft kunnen we je niet echt verder helpen. Zorg dat je een concrete vraag hebt met een duidelijk voorbeeld.

[Verwijderd]

Biglines schreef op 23 maart 2004 @ 19:44:
Een stukje code

code:

    for i := 1 to length(text) do
     idTelnet1.SendCh(text[i]);
     idTelnet1.SendCh(#13);

Ik kan me niet aan de indruk onttrekken dat je hier bedoeld:

code:

  for I:=1 to Length(text) do
    idTelnet1.SendCh(text[i]);
  idTelnet1.SendCh(#13);
  idTelnet1.SendCh(#10);

Of dat je bedoeld:

code:

  for I:=1 to Length(text) do
  begin
    idTelnet1.SendCh(text[I]);
    idTelnet1.SendCh(#13);
  end;

[Biglines]

atm heb ik de volgende code (net2.pas):

code:

program BigOS;

{$APPTYPE CONSOLE}

uses
   SysUtils, StrUtils, Classes, Sockets, IdTelnet;


var
  text : String;
  i : Integer;
  idTelnet1: TIdtelnet;


begin
  idTelnet1 := TIdtelnet.Create(nil);
  idTelnet1.Host := '127.0.0.1';
  idTelnet1.Port := 9830;
  idTelnet1.Connect;

   try
    text := 'screen ' + ParamStr(1);
    for i := 1 to length(text) do
     idTelnet1.SendCh(text[i]);
    idTelnet1.SendCh(#13);
    idTelnet1.SendCh(#10);
   finally
    idTelnet1.Disconnect;
    idTelnet1.Free;
   end;
end.

ik compileer dit met dcc32 net2

daarna doe ik bijv net2 Time
in de console, en dan moet ik dat een paar keer doen voordat jalcds omschakeld naar de screen Time.
Als ik met windows telnet een verbinding maak, geeft hij af en toe de reply dattie de screen niet kan vinden, dus ik moet eigenlijk een code hebben die de reply checked (goede reply: '20 Screen changed successfully' foute reply: 21 Screen not found')

hoe kan ik dus in die console app testen oftie het goed gedaan heeft, en zo niet nog een keer proberen tot hij de goede reply geeft?

[ Voor 44% gewijzigd door Biglines op 25-03-2004 18:40 ]

[LordLarry]

Lees wat ie teruggeeft dan, zoals je zelf ook al verzonnen had

[Biglines]

idd, dat had ik zelf verzonnen, ik kan ook een heel os verzinnen, maar niet proggen...


mijn vraag was hoe dat moet in een console app... (in een window kan dat gewoon als procedure gedaan worden die als event wordt aangeroepen vogges mij)

[LordLarry]

Ik denk niet dat Indy zo werkt, want het werkt immers blocking. Maar er is (bijna) geen verschil qua programmeren tussen een GUI en een console app. Ook daar kan je gewoon events hebben en koppelen. Natuurlijk niet designtime, maar wel in je code.
Iets in deze strekking:

Delphi:

  TForm1 = class(TForm)
    procedure ButtonClick(Sender: TObject);
  end;

  Button1.OnClick := ButtonClick;

[Biglines]

hij werkt dat progje af en stopt ermee...

[LordLarry]

Ja, uiteraard...

[Biglines]

dus kan ik niet met events werken...., en dus is nog steeds de vraag hoe ik dan dat kan uitlezen (in een grafische versie werkt dat wel)

[LordLarry]

Tuurlijk wel. Je zal een loopje moeten maken zodat je niet zomaar uit je programma valt. Je kan het uitlezen op precies dezelfde manier als designtime. Als je het allemaal te lastig vind voeg je toch een TDataModule toe aan je console appje? Die zie je ook niet, maar je kan er designtime wel componenten op gooien en properties zetten.

[Biglines]

het is al gelukt, topic mag wat mij betreft op slot