my.systems.wsocklocal.html

PMS³² Online- Hilfereferenz

MY.SYSTEMS.WSOCKLOCAL

WSockLocal - Dieses Control ist abgeleitet von WSockControl und wird lokal verwendet!

Hilfe: WinSock lokal

Liste der Methoden von WSockLocal

AcceptRequest() -

Rückgabe:[Object], Wird genommen, wenn vom 'globalen' Empfänger ein 'neuer' Empfänger benötigt wird. Siehe auch ConnectionRequest. Gibt sich selbst zurück

Hilfeinformation

Aufrufinformation

Object = My.Systems.WSockLocal.AcceptRequest(tnRequestID AS INTEGER)
Object = My.Systems.WSockLocal.AcceptRequest(tnRequestID)

Codeinformation

CRemoteInfo_AcCESS() -

Wert:[String], Gibt die RemoteInfo zurück

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.CRemoteInfo_AcCESS()

Codeinformation

Connect() -

Rückgabe:[Boolean], Verbindung zum Server (Empfänger) herstellen

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.Connect(tcRemoteHost AS STRING,tnRemotePort AS INTEGER,tnProtocol AS INTEGER,tlCheckOnly AS Boolean)
Boolean = My.Systems.WSockLocal.Connect(tcRemoteHost,tnRemotePort,tnProtocol,tlCheckOnly)

Codeinformation

ConnectionRequest() -

Rückgabe:[Boolean], Wird beim Empfangs-Computer getriggert, wenn dieser von außen angesprochen wird.

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.ConnectionRequest(tnRequestID AS Integer)
Boolean = My.Systems.WSockLocal.ConnectionRequest(tnRequestID)

Codeinformation

DataArrival() -

Rückgabe:[Boolean], Wird ausgelöst, wenn Daten empfangen werden.

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.DataArrival(tcData AS STRING)
Boolean = My.Systems.WSockLocal.DataArrival(tcData)

Codeinformation

Evaluate() - Ausführen eines Befehls

Mit Setzen dieser Property auf .T. kann die Form zentriert werden.

Hilfeinformation

Ausführen eines VFP-Befehls mit EVALUATE().
Achtung! Eventuell müssen Variablen als PRIVATE deklariert werden!ENDTEXT
*
TEXT TO lcMessage NOSHOW TEXTMERGE
Ausführen eines VFP-Befehls mit EVALUATE().

Aufrufinformation

Variant = My.Systems.WSockLocal.Evaluate(pcExpression AS STRING,pvDefault AS Variant,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant, tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant)
Variant = My.Systems.WSockLocal.Evaluate(pcExpression,pvDefault,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)

Codeinformation

*/ Mit Evaluate kann eine Befehlszeile ausgeführt werden
*/ Eventuell benutzte Variablen sind PRIVATE zu deklarieren
PRIVATE pnVar1 AS Number , pnVar2 AS Number
LOCAL lnVar AS Number
STORE 2 TO pnVar1,pnVar2
lnVar = My.Systems.WSockLocal.Evaluate([m.pnVar1+m.pnVar2])
WAIT WINDOW m.lnVar		&& Ergibt 4...	ENDTEXT

ExecScript() - Ausführen eines VFP-Scripts

Ausführen eines VFP-Scripts incl. der Prüfung, ob ein ALIAS besteht.

Hilfeinformation

Ausführen eines VFP-Scripts incl. der Prüfung, ob ein ALIAS besteht.

Aufrufinformation

Variant = My.Systems.WSockLocal.ExecScript(_es_pcAlias AS STRING,_es_pcScript AS STRING,_es_tlBoolean AS Boolean, _es_tvP1 AS Variant,_es_tvP2 AS Variant,_es_tvP3 AS Variant,_es_tvP4 AS Variant,_es_tvP5 AS Variant,_es_tvP6 AS Variant, _es_tvP7 AS Variant,_es_tvP8 AS Variant,_es_tvP9 AS V)
Variant = My.Systems.WSockLocal.ExecScript(_es_pcAlias,_es_pcScript,_es_tlBoolean,_es_tvP1,_es_tvP2,_es_tvP3,_es_tvP4,_es_tvP5,_es_tvP6,_es_tvP7,_es_tvP8,_es_tvP9)

Codeinformation

*/ Mit EXECSCRIPT kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar1 AS Number,lnVar2 AS Number,lnVar AS Number
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS tnVar1 AS Number @,tnVar2 AS Number @
tnVar1 = m.tnVar1 + 1
tnVar2 = m.tnVar2 - 2
RETURN m.tnVar1 + m.tnVar2
ENDTEXT
*/ Vorbelegen der Variablen (Parameter)
STORE 2 TO lnVar1,lnVar2
lnVar = My.Systems.WSockLocal.ExecScript("",m.lcScript,0,@lnVar1,@lnVar2)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2

Listen() -

Rückgabe:[Boolean], Gehe auf Empfang. Wird nur beim Empfangs-Computer benötigt.

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.Listen(tnRemotePort AS INTEGER,tnProtocol AS INTEGER)
Boolean = My.Systems.WSockLocal.Listen(tnRemotePort,tnProtocol)

Codeinformation

SendData() -

Rückgabe:[Boolean], Senden von Daten...

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.SendData(tcData AS STRING,tlWaitIfSend AS Boolean)
Boolean = My.Systems.WSockLocal.SendData(tcData,tlWaitIfSend)

Codeinformation

SendNewJob() -

EInen neuen Job an den Host übertragen

Hilfeinformation

Aufrufinformation

Variant = My.Systems.WSockLocal.SendNewJob(tcIdt20 AS String)
Variant = My.Systems.WSockLocal.SendNewJob(tcIdt20)

Codeinformation

SendOffset() -

Das Offset an den Host übergeben

Hilfeinformation

Aufrufinformation

Variant = My.Systems.WSockLocal.SendOffset()

Codeinformation

SendRemoveRequest() -

Den Request im Host freigeben

Hilfeinformation

Aufrufinformation

Variant = My.Systems.WSockLocal.SendRemoveRequest()

Codeinformation

SendShutdown() -

Rückgabe:[Boolean], Senden des SHUTDOWNS

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.SendShutdown()

Codeinformation

SendTerminateJob() -

EInen Job vom Host löschen

Hilfeinformation

Aufrufinformation

Variant = My.Systems.WSockLocal.SendTerminateJob(tcIdt20 AS String)
Variant = My.Systems.WSockLocal.SendTerminateJob(tcIdt20)

Liste der Properties von WSockLocal

cHostAddress -

Wert:[String], IP-Adresse des Empfangs-Computers vom Sender aus gesehen.

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cHostAddress

Codeinformation

cIdx02 - Mandanten-ID

Mandanten-ID. Diese ist in der Datei pms32.pth gespeichert und dient dort zur Zuordnung des Mandante und dessen Pfade.

Hilfeinformation

Mandanten-ID. Diese ist in der Datei pms32.pth gespeichert und dient dort zur Zuordnung des Mandante und dessen Pfade.
Auszug aus der Pfaddatei pms32.pth:

      */ Verzeichnis der Microcube - Dateien. Wenn leer dann gleich: cDbfdir
      cCubdir = ""
      */ Ein 'anderes' Dokumentenverzeichnis kann angegeben werden. Wenn nicht angegeben dann gleich: cDbfdir+'docs\'
      */ cDocDir = ""
      */ Verzeichnis der Mandantentabellen. Hier ein Beispiel mit UNC Pfaden.
      */ Wird die Freigabe auf dem Server 'versteckt' \pms$\ angegeben, so kann ein Cryptovirius das Verzeichnis nicht finden!
      cDbfdir = "\\server\pms$\pms32\daten\demo.32\"
      */ Verzeichnis der Reporttabellen
      */ Gibt man Bilddateien in einem Report mit My.Clients.Path.cFrxDir+'BILDNAME.JPG' an, so kann PMS32 einfach auf einen anderen Rechner kopiert werden!
      cFrxdir = "\\server\pms$\pms32\reports\demo.32\"
      */ Beschreibung des Mandanten
      cIcx02  = "TESTMANDANT DEMO"
      */ ID der Firmenparameter zum Mandant.
      cIdx09  = "DEMO"
      */ Kann unter der Mandanteninformation leer sein, wenn für mehrere Mandanten das 'gleiche' Systemverzeichnis gültig ist.
      cSysdir = ""
      */ Willkommens-Information als Hintergrundbild in PMS32
      cWelcome= "pms32.htm"
      */ Nummer des Mandanten, beim Einsatz eines BarcodeScanners sollte diese Nummer EINDEUTIG sein!
      nNumber = 1
<>

Aufrufinformation

String = My.Systems.WSockLocal.cIdx02

Codeinformation

*/ Abfrage der Mandanten-ID
WAIT WINDOW My.Systems.WSockLocal.cIdx02

*/ Wenn man mittels VFP Zugriff auf die Applikation braucht:

*/ 1. vfp9.exe öffenen
*/ 2. In das Startverzeichnis von PMS32 wechseln (MUSS)
CD c:\pms\pms32
*/ 3. My Instanziieren
My = NEWOBJECT("pmsmy","pmsmyhandler.vcx","pmsmyhandler.app")
*/ 4. Den letzten aktuellen Mandanten zuweisen
My.cIdx02 = My.cIdx02
*/ 5. Los gehts...

cLastError - Letzter Fehler

Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.

Hilfeinformation

Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.

Aufrufinformation

String = My.Systems.WSockLocal.cLastError

Codeinformation

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcError AS String
lcError = My.Systems.WSockLocal.cLastError

cLocalHostIP -

Wert:[String], Rückgabe der Lokalen IP Adresse

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cLocalHostIP

Codeinformation

cLocalHostName -

Wert:[String], Rückgabe des Lokalen Rechnernamens

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cLocalHostName

Codeinformation

cMethod - Methode des Fehlers

Methode in der der letzte Fehler auftrat.

Hilfeinformation

Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]

Aufrufinformation

String = My.Systems.WSockLocal.cMethod

Codeinformation

*/ Abruf...
WAIT WINDOW My.Systems.WSockLocal.cMethod

cRemoteInfo -

Wert:[String], Gibt die RemoteInfo zurück

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cRemoteInfo

Codeinformation

cRemote_Id -

Wert:[String], Enthält die ID des Listeners

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cRemote_Id

Codeinformation

cRemote_Idx02 -

Wert:[String], Mandanten ID des entfernten Computers

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cRemote_Idx02

Codeinformation

cRemote_Name -

Wert:[String], Name des entfernten Computers

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cRemote_Name

Codeinformation

cRemote_User -

Wert:[String], Benutzer ID des entfernten Computers

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.cRemote_User

Codeinformation

lConnected -

Wert:[Boolean], Besteht eine Verbindung?

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.lConnected

Codeinformation

lSendIsComplete -

Wurde komplett gesendet?

Hilfeinformation

Aufrufinformation

Boolean = My.Systems.WSockLocal.lSendIsComplete

Codeinformation

lShowThermos - Thermosanzeige

Thermosanzeige bei der Ausführung

Hilfeinformation

Thermosanzeige bei der Ausführung

Aufrufinformation

Boolean = My.Systems.WSockLocal.lShowThermos

Codeinformation

My.Systems.WSockLocal.lShowThermos = .T.

nDelayTime -

Wert:[Integer], Warten auf Anworten in Sekunden.

Hilfeinformation

Aufrufinformation

Number = My.Systems.WSockLocal.nDelayTime

Codeinformation

nLine - Zeilennummer d. Fehlers

Zeilennummer, in der der letzte Fehler auftrat

Hilfeinformation

Zeilennummer, in der der letzte Fehler auftrat

Aufrufinformation

Number = My.Systems.WSockLocal.nLine

Codeinformation

WAIT WINDOW My.Systems.WSockLocal.nLine

nLocalPort -

Wert:[Integer], Portnummer des lokalen Computers. Wird nur beim Empfänger (Server) benötigt!

Hilfeinformation

Aufrufinformation

Number = My.Systems.WSockLocal.nLocalPort

Codeinformation

nProtocol -

Wert:[Integer], Welches Protokoll? 0-TCP, 1-UDP

Hilfeinformation

Aufrufinformation

Number = My.Systems.WSockLocal.nProtocol

Codeinformation

nRecords - Verarbeitete Datensätze

Verarbeitete Datensätze

Hilfeinformation

Verarbeitete Datensätze

Aufrufinformation

Number = My.Systems.WSockLocal.nRecords

Codeinformation

WAIT WINDOW My.Systems.WSockLocal.nRecords

nRemotePort -

Wert:[Integer], Portnummer des Empfangs-Computers vom Sender aus gesehen.

Hilfeinformation

Aufrufinformation

Number = My.Systems.WSockLocal.nRemotePort

Codeinformation

nSeconds - Ausführungszeit

Ausführungszeit in Sekunden

Hilfeinformation

Ausführungszeit in Sekunden

Aufrufinformation

Number = My.Systems.WSockLocal.nSeconds

Codeinformation

WAIT WINDOW My.Systems.WSockLocal.nSeconds

nState -

Wert:[Integer], Status der Verbindung.

Hilfeinformation

Aufrufinformation

Number = My.Systems.WSockLocal.nState

Codeinformation

nStatus - Status der Ausführung

Status der Ausführung

Hilfeinformation

Status der Ausführung

Aufrufinformation

Number = My.Systems.WSockLocal.nStatus

Codeinformation

WAIT WINDOW My.Systems.WSockLocal.nStatus

wSockRemoteHostIP -

Wert:[String], IP-Adresse des Host Computers

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.wSockRemoteHostIP

Codeinformation

wSockRemoteHostName -

Wert:[String], Name des Host Computers

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.wSockRemoteHostName

Codeinformation

wSockRemotePort -

Wert:[Integer], Remote TCPIP-Port des Host Computers

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.wSockRemotePort

Codeinformation

wSockRemoteProtocol -

Wert:[Integer], Protokoll das angewendet wird. 0 - TCP , 1-UDP

Hilfeinformation

Aufrufinformation

String = My.Systems.WSockLocal.wSockRemoteProtocol

Codeinformation

Siehe auch : Hauptmenü / Hauptindex / Such Index / Cursor Index / Programm Module / Tabellen Index / Tabellenmodule / Masken Index / Programmcode Index / Servicepacks / My.Struktur / Funktionen / Sonstiges Index

Lokale Benutzerhilfe : Meine eigene Hilfe / Zur�ck zur PMS³² - Hilfe

Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022 Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS³² Weitere Informationen finden Sie unter der aktuellen PMS³² WEB-Hilfe
Die Informationen dieser Mitteilung sind vertraulich und nur f�r Sie bestimmt. Unbefugtes Weiterleiten, Ver�ffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt. © PMS Compelec GmbH 2022 ® el-Projekt