Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Pages: 1 [2]
16
Web Server - Ask For Help / problem reaching Apple's Notification service (webservice)
« on: September 12, 2013, 01:12:19 AM »
Hi There,
I 'am having trouble reaching the APNS (apple Notification Service).
I get following error:
"Connection failed to open NetError = -66 SSLError = 0 WinsockError = 0"
I'm not sure what this error means.
Is there somewhere a list with explanation of all NetError's and SSLError's?
This is my code, hope someone can help me:
!Stuur push bericht
!Init
apnsHost = 'gateway.sandbox.push.apple.com'
!apnsHost = '17.172.233.65'
apnsCert = 'certificaten\cert.pem'
apnsKey = 'certificaten\key.pem'
apnsRoot = 'certificaten\AppleIncRootCertificate.pem'
apnsPort = '2195'
apnsUrl = apnsHost & ':' & apnsPort
unixDate = Today() - Deformat('19700101',@d12)
unixTime = (UnixDate * 86400) + Round(Clock()/100,1)
unixExpiry = st.LongToHex(unixTime + 86400) ! add 1 day
st.SetValue(unixExpiry)
st.FromHex()
apnsExpiry = st.GetValue()
Message('JulianDate=' & Today() & ' 01/01/1970=' & Deformat('19700101',@d12) & ' Time=' & Round(Clock()/100,1) & ' UnixDate=' & UnixDate & ' unixTime=' & unixTime & ' unixExpiry=' & Clip(unixExpiry) & ' hex=' & apnsExpiry)
json = '{{"aps" : {{ "alert" : "Hallo mijn eerste push bericht", "badge" : 1, "sound" : "default" } }'
!json = '{{"aps" : {{ "alert" : "Hallo mijn eerste push bericht", "badge" : 1, "sound" : "default" } }'
!SETCLIPBOARD(json)
deviceToken = '0b9e08cdd8baa77rdes34s3gfhh4565ggh57uhf4543gbcfc38173'
!PostString = Chr(0) & Chr(0) & Chr(32) & DeviceToken & Chr(0) & Chr(Len(Clip(json))) & Clip(jSon)
PostString = Chr(1) & '1234' & apnsExpiry & Chr(32) & DeviceToken & Chr(0) & Chr(Len(Clip(json))) & Clip(jSon)
net.CanUseProxy = 1 ! Can use a proxy
net.HeaderOnly = 0 ! We want the whole page
net.AsyncOpenUse = 1 ! Use AsyncOpen 12 seconds (recommended)
net.AsyncOpenTimeOut = 1200 ! Up to 12 seconds to connect
net.InActiveTimeout = 9000 ! Set IdleTimeout 90 seconds
net.ConnectionKeepAlive = 0
! These settings would be required if you were talkig to a SOAP server that only did SSL.
Net.SSL = 1
net.SSLCertificateOptions.CertificateFile = apnsCert
net.SSLCertificateOptions.PrivateKeyFile = apnsKey
net.SSLCertificateOptions.CARootFile = apnsRoot !'.\CaRoots.pem'
net.SSLCertificateOptions.DontVerifyRemoteCertificateCommonName = 1
net.SSLCertificateOptions.DontVerifyRemoteCertificateWithCARoot = 1
! If https use a root cluster like '.\CA_Roots.pem'
!net.AsyncOpenUse = 1
!net.AsyncOpenTimeOut = 1200 ! 12 sec
!net.InActiveTimeout = 9000 ! 90 sec
net.ContentType = 'text/xml; charset=utf-8'
net.AcceptEncoding = ''
net.ContentLength = Len(Clip(PostString))
! Set the SOAPAction header to tell the web service which method to execute
!net.customheader = 'SOAPAction: "http://www.egem.nl/StUF/sector/bg/0310/aoaLv01"'
SetCursor(Cursor:Wait)
net.Post(apnsUrl, PostString)
If net.Error
Message ('Could not post the request to this web service. Error ' & net.Error & ': ' & net.InterpretError())
SetCursor()
End
Regards Joep
Clarion 6,3
Nettalk 7,05
I 'am having trouble reaching the APNS (apple Notification Service).
I get following error:
"Connection failed to open NetError = -66 SSLError = 0 WinsockError = 0"
I'm not sure what this error means.
Is there somewhere a list with explanation of all NetError's and SSLError's?
This is my code, hope someone can help me:
!Stuur push bericht
!Init
apnsHost = 'gateway.sandbox.push.apple.com'
!apnsHost = '17.172.233.65'
apnsCert = 'certificaten\cert.pem'
apnsKey = 'certificaten\key.pem'
apnsRoot = 'certificaten\AppleIncRootCertificate.pem'
apnsPort = '2195'
apnsUrl = apnsHost & ':' & apnsPort
unixDate = Today() - Deformat('19700101',@d12)
unixTime = (UnixDate * 86400) + Round(Clock()/100,1)
unixExpiry = st.LongToHex(unixTime + 86400) ! add 1 day
st.SetValue(unixExpiry)
st.FromHex()
apnsExpiry = st.GetValue()
Message('JulianDate=' & Today() & ' 01/01/1970=' & Deformat('19700101',@d12) & ' Time=' & Round(Clock()/100,1) & ' UnixDate=' & UnixDate & ' unixTime=' & unixTime & ' unixExpiry=' & Clip(unixExpiry) & ' hex=' & apnsExpiry)
json = '{{"aps" : {{ "alert" : "Hallo mijn eerste push bericht", "badge" : 1, "sound" : "default" } }'
!json = '{{"aps" : {{ "alert" : "Hallo mijn eerste push bericht", "badge" : 1, "sound" : "default" } }'
!SETCLIPBOARD(json)
deviceToken = '0b9e08cdd8baa77rdes34s3gfhh4565ggh57uhf4543gbcfc38173'
!PostString = Chr(0) & Chr(0) & Chr(32) & DeviceToken & Chr(0) & Chr(Len(Clip(json))) & Clip(jSon)
PostString = Chr(1) & '1234' & apnsExpiry & Chr(32) & DeviceToken & Chr(0) & Chr(Len(Clip(json))) & Clip(jSon)
net.CanUseProxy = 1 ! Can use a proxy
net.HeaderOnly = 0 ! We want the whole page
net.AsyncOpenUse = 1 ! Use AsyncOpen 12 seconds (recommended)
net.AsyncOpenTimeOut = 1200 ! Up to 12 seconds to connect
net.InActiveTimeout = 9000 ! Set IdleTimeout 90 seconds
net.ConnectionKeepAlive = 0
! These settings would be required if you were talkig to a SOAP server that only did SSL.
Net.SSL = 1
net.SSLCertificateOptions.CertificateFile = apnsCert
net.SSLCertificateOptions.PrivateKeyFile = apnsKey
net.SSLCertificateOptions.CARootFile = apnsRoot !'.\CaRoots.pem'
net.SSLCertificateOptions.DontVerifyRemoteCertificateCommonName = 1
net.SSLCertificateOptions.DontVerifyRemoteCertificateWithCARoot = 1
! If https use a root cluster like '.\CA_Roots.pem'
!net.AsyncOpenUse = 1
!net.AsyncOpenTimeOut = 1200 ! 12 sec
!net.InActiveTimeout = 9000 ! 90 sec
net.ContentType = 'text/xml; charset=utf-8'
net.AcceptEncoding = ''
net.ContentLength = Len(Clip(PostString))
! Set the SOAPAction header to tell the web service which method to execute
!net.customheader = 'SOAPAction: "http://www.egem.nl/StUF/sector/bg/0310/aoaLv01"'
SetCursor(Cursor:Wait)
net.Post(apnsUrl, PostString)
If net.Error
Message ('Could not post the request to this web service. Error ' & net.Error & ': ' & net.InterpretError())
SetCursor()
End
Regards Joep
Clarion 6,3
Nettalk 7,05
17
Web Server - Ask For Help / xml load with xfiles
« on: February 22, 2013, 06:47:52 AM »
Hi all,
I want to load an xml file into 2 queue’s which should be related.
I have got a master record and one or more child records.
I thought I could do this with 2 load commands.
The first on the master is no problem, but the second one on the child I can’t get right.
I would suppose I do a load(BagQueue,file,’antwoord’,’object’) for the master
And a load(TgoQueue,file,’antwoord’,’gerelateerde’) for the child, but then I always get the last one only.
Another question is how to get the multiple "gebruiksdoel" into the TgoQueue.
These are my queue’s:
Child queue:
TgoQueue QUEUE,PRE(tgo)
identificatie STRING(20)
identificatie_bag STRING(20)
puntGeometrie STRING(20)
gebruiksdoel STRING(30) (I should probably make 5 of these, see the example)
bouwjaar STRING(10)
END
Master queue:
BagQueue QUEUE,PRE(bg)
identificatie STRING(20)
woonplaatsNaamNen STRING(30)
identificatie_opr STRING(20),NAME('opr.identificatie')
openbareRuimteNaam STRING(30)
huisnummer STRING(10)
huisletter STRING(10)
huisnummertoevoeging STRING(10)
postcode STRING(10)
StraatNaam STRING(30)
END
Can anyone help me?
Regards
Joep
[attachment deleted by admin]
I want to load an xml file into 2 queue’s which should be related.
I have got a master record and one or more child records.
I thought I could do this with 2 load commands.
The first on the master is no problem, but the second one on the child I can’t get right.
I would suppose I do a load(BagQueue,file,’antwoord’,’object’) for the master
And a load(TgoQueue,file,’antwoord’,’gerelateerde’) for the child, but then I always get the last one only.
Another question is how to get the multiple "gebruiksdoel" into the TgoQueue.
These are my queue’s:
Child queue:
TgoQueue QUEUE,PRE(tgo)
identificatie STRING(20)
identificatie_bag STRING(20)
puntGeometrie STRING(20)
gebruiksdoel STRING(30) (I should probably make 5 of these, see the example)
bouwjaar STRING(10)
END
Master queue:
BagQueue QUEUE,PRE(bg)
identificatie STRING(20)
woonplaatsNaamNen STRING(30)
identificatie_opr STRING(20),NAME('opr.identificatie')
openbareRuimteNaam STRING(30)
huisnummer STRING(10)
huisletter STRING(10)
huisnummertoevoeging STRING(10)
postcode STRING(10)
StraatNaam STRING(30)
END
Can anyone help me?
Regards
Joep
[attachment deleted by admin]
18
Web Server - Ask For Help / padding between fields not working in mobile mode and telephone field dialing
« on: November 12, 2012, 02:34:47 PM »
Hi All,
Hope somebody can help me.
I made a mobile website especially for a smartphone.
When I open this website in firefox everything is fine.
I have made a custom.css to make this possible.
No padding between fields and fields properly inline.
When I open it in the smartphone (Iphone) the browses show fine,
but the forms have lost the size adjustment and fields have got a lot of space between each other and above that there not inline anymore.
Does someone have an explanation for this behavior?
Something else I want to ask is how I can hyperlink a telephone field to dial that number?
NT 6.44
Build 8.0.9661
Kind Regards
Joep Borghans
Hope somebody can help me.
I made a mobile website especially for a smartphone.
When I open this website in firefox everything is fine.
I have made a custom.css to make this possible.
No padding between fields and fields properly inline.
When I open it in the smartphone (Iphone) the browses show fine,
but the forms have lost the size adjustment and fields have got a lot of space between each other and above that there not inline anymore.
Does someone have an explanation for this behavior?
Something else I want to ask is how I can hyperlink a telephone field to dial that number?
NT 6.44
Build 8.0.9661
Kind Regards
Joep Borghans
19
Web Server - Ask For Help / registry item netwebbrowse missing after reinstall clarion 8
« on: September 19, 2012, 05:45:55 AM »
Hi all,
I have moved my clarion 8 install.
After that I couldn't open my webapplication because an registry item was missing:
"GEN: Registry item NetTalk NetWebBrowse no longer exists"
Anyone an idea how to fix this?
Regards,
Joep
I have moved my clarion 8 install.
After that I couldn't open my webapplication because an registry item was missing:
"GEN: Registry item NetTalk NetWebBrowse no longer exists"
Anyone an idea how to fix this?
Regards,
Joep
20
The Rest - Ask For Help / xml import of dictionary is not getting the expected lines (boundary problem)
« on: September 11, 2012, 03:43:11 AM »
Hi all,
I'm trying to compare 2 xml files. Actually 2 exported dictionary's.
This is the example of one:
<?xml version="1.0" encoding="UTF-8"?>
<Dictionary Name="aagwin" Version="1" DctxFormat="4">
<Table Guid="{314a1615-7fe0-4c3e-8b83-ccff9bf2f3a8}" Ident="96" Name="Alg000">
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
<Field Guid="{d0373689-0dbd-4ba0-9b58-8d13f4ac6b05}" Ident="7092" Name="RecId" DataType="LONG" Size="4" ScreenPicture="@n-14">
<WindowControl>
<Line Text=" PROMPT('Rec Id:'),USE(?Alg000:RecId:Prompt)"/>
<Line Text=" ENTRY(@n-14),USE(Alg000:RecId),REQ"/>
</WindowControl>
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
<Validity Check="NONZERO"/>
</Field>
<Field Guid="{aaf2b4ea-a3c6-483d-9155-e9cb6d5b4f95}" Ident="1462" Name="MutDat" DataType="STRING" )">
<WindowControl>
<Line Text=" PROMPT('Mut Dat:'),USE(?Alg000:MutDat:Prompt)"/>
<Line Text=" ENTRY(@s8),USE(Alg000:MutDat)"/>
</WindowControl>
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
<Validity Check="NOCHECKS"/>
</Field>
<Key Guid="{d5ef9fcb-8fe3-4e23-96ca-10a64578b530}" Ident="884" Order="1" Name="PK_Alg000" KeyType="KEY" Unique="true">
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"
<Component Guid="{d7b8dcfe-8bf3-44c2-afeb-e724450f4790}" FieldId="{d0373689-0dbd-4ba0-9b58-8d13f4ac6b05}" Order="1" Ascend="true">
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
</Component>
</Key>
</Table>
</Dictionary>
I do a xml.load(queue,xmlfile,'Dictionary','Table')
But I keep getting the Ident and Name values from the last tag <Key
Instead of the ones from the <table line.
Can someone explain me what I'm doing wrong.
Thanks Joep
Clarion C8
Xfiles 2.33
I'm trying to compare 2 xml files. Actually 2 exported dictionary's.
This is the example of one:
<?xml version="1.0" encoding="UTF-8"?>
<Dictionary Name="aagwin" Version="1" DctxFormat="4">
<Table Guid="{314a1615-7fe0-4c3e-8b83-ccff9bf2f3a8}" Ident="96" Name="Alg000">
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
<Field Guid="{d0373689-0dbd-4ba0-9b58-8d13f4ac6b05}" Ident="7092" Name="RecId" DataType="LONG" Size="4" ScreenPicture="@n-14">
<WindowControl>
<Line Text=" PROMPT('Rec Id:'),USE(?Alg000:RecId:Prompt)"/>
<Line Text=" ENTRY(@n-14),USE(Alg000:RecId),REQ"/>
</WindowControl>
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
<Validity Check="NONZERO"/>
</Field>
<Field Guid="{aaf2b4ea-a3c6-483d-9155-e9cb6d5b4f95}" Ident="1462" Name="MutDat" DataType="STRING" )">
<WindowControl>
<Line Text=" PROMPT('Mut Dat:'),USE(?Alg000:MutDat:Prompt)"/>
<Line Text=" ENTRY(@s8),USE(Alg000:MutDat)"/>
</WindowControl>
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
<Validity Check="NOCHECKS"/>
</Field>
<Key Guid="{d5ef9fcb-8fe3-4e23-96ca-10a64578b530}" Ident="884" Order="1" Name="PK_Alg000" KeyType="KEY" Unique="true">
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"
<Component Guid="{d7b8dcfe-8bf3-44c2-afeb-e724450f4790}" FieldId="{d0373689-0dbd-4ba0-9b58-8d13f4ac6b05}" Order="1" Ascend="true">
<Audit CreateUser="Administrator" CreateDate="25 JUN 2012" CreateTime="12:01:56PM" CreateVersionNumber="1"/>
</Component>
</Key>
</Table>
</Dictionary>
I do a xml.load(queue,xmlfile,'Dictionary','Table')
But I keep getting the Ident and Name values from the last tag <Key
Instead of the ones from the <table line.
Can someone explain me what I'm doing wrong.
Thanks Joep
Clarion C8
Xfiles 2.33
21
Web Server - Ask For Help / Assertion fault after using new serverweb wizard
« on: July 11, 2012, 08:08:44 AM »
Hi all,
I generated a new app from the nettalk (NT 6.) wizard with only one file in the dictionary.
But when I open the application in the browser I keep getting "Assertion failed" with the message The file is still open. with almost every action.
I can't figure out what causes this.
Can somebody help me?
Thanks in advance
Joep
I generated a new app from the nettalk (NT 6.) wizard with only one file in the dictionary.
But when I open the application in the browser I keep getting "Assertion failed" with the message The file is still open. with almost every action.
I can't figure out what causes this.
Can somebody help me?
Thanks in advance
Joep
22
The Rest - Ask For Help / Soap and ssl what certificates to use
« on: June 04, 2012, 01:19:47 AM »
Hi All I want to consume a webservice which will be used in an intranet environment. Consuming this webservice already works, but i have to go secure with ssl. Can someone tell me what certificates I need for this to work. Problem I have at the time is that I can't test it because the customer is to far away. And I want to be sure everything is in place before I do so. Do I need a root certificate and a key? Or can I just make one certificate, use it in my application and publish the certificate to the other party. Does someone know a free webservice based on ssl just to make sure the ssl part will work. Regards Joep Clarion 6.3
Pages: 1 [2]