| |
| |
|
ASKTEC | Hello together,
I Search a Solution for the following trouble:
i want from Profan data on a Website transfer. These should with Help of/ one php-File in a data base registered go. The php-File standing so far and functions. there the To übergebende Text a great many Sonderzeichen include can ( ` / - ´ ...) think I is a Übergabe by URL-Parameter not very good well suitable. I should Yes jedesmal The Sonderzeichen transfiguring.
my lane yet: I transfer The data by File whom Webserver and would like there a php-File Call, The The Textdatei ausliest and then The data into data base enters...
MEIN PROBLEM: How can I Windows from The PHP-File Call and how can I The Statusmeldungen the PHP-Page Show?????
white someone a Solution for this trouble??
Vielen Thanks
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 08/07/04 ▲ |
|
| |
|
|
 | now, of a trouble can quite no speech his, I put hereafter time a Variante To Show.
To denne, iF  |
|
| |
| |
| |
|
|
| so, look time with this example becomes of course on a csv verwiesen, but it could too a php his! The php becomes so launched and profane sustain the by echo or The() angegebene Datenmaterial back:
{$crq}
def mf2sa%(0) 255
def mf2sb$(0) hex$ (&gettickcount)
def mf2sc$(0) $winpath
def mf2sd$(1) mid$ (@$(1),1,3)
declare mf2se#, mf2sf$, mf2sg$
declare mf2sh% [99,1]
declare mf2si$, mf2sj%, mf2sk%
declare mf2sl&, mf2sm%, mf2sn%
declare mf2so%, mf2sp%, mf2sq%
declare ed&,h&
declare callmem#
dim callmem#,32768
proc iii
dim mf2se#, 255
let mf2sf$= add$ (mf2sd$(mf2sc$()),mf2sb$())
let mf2sg$= add$ (mf2sf$ ,"a" )
assign #15, mf2sf$
erase #15
openrw #15
endproc
proc iio
closerw #15
dispose mf2se#
sub mf2sj%, mf2sj%
while neq(mf2sj%,99)
add mf2sj%, 001
let mf2sh%[mf2sj% ,1]= createtext(h&,"",0,0,0,0)
showwindow (mf2sh%[mf2sj% ,1], 0)
wend
endproc
proc P
parameters bb$
string mf2se#, 000= bb$
blockwrite #15, mf2se#, 0,len(bb$)
endproc
proc F_Outp
parameters bb$
declare tmpst$
bb$=lower$(bb$)
add instl_cabinetcnt%,1
instl_o_dsci$=bb$
tmpst$=substr$(bb$,1,".")
dim mf2se#, 255
declare on$,pp%
assign #14, mf2sg$
erase #14
assign #14, mf2sg$
openrw #14
assign #15, mf2sf$
openrw #15
let mf2sl&= getfilesize(#15)
while lt( filepos (#15),mf2sl&)
let mf2sm%= getbyte (#15)
if and( gt(mf2sm%,191),lt(mf2sm%, 254))
ifnot len( gettext$(mf2sh%[add(-191, mf2sm%),1]))
let mf2sj%= mf2sm%
sub mf2sm%, mf2sm%
while lt( mf2sm% ,191)
let mf2sm%= getbyte (#15)
if lt( mf2sm% ,191)
settext mf2sh% [add(-191, mf2sj%),1],add$(gettext$(mf2sh% [add(-191, mf2sj%),1]) , chr $(mf2sm%) )
endif
wend
seek #15, add(-1, filepos(#15) )
else
string mf2se#,0= gettext$(mf2sh%[add(-191, mf2sm%),1])
blockwrite #14, mf2se#, 0,len(gettext$(mf2sh% [add( -191, mf2sm%),1]))
endif
else
ifnot equ(mf2sm%,254)
putbyte #14, mf2sm%
endif
endif
wend
closerw #15
closerw #14
assign #15, mf2sf$
erase #15
dispose mf2se#
assign #15, mf2sg$
openrw #15
assign #14, bb$
erase #14
assign #14, bb$
openrw #14
let mf2sl&= getfilesize(#15)
tmpst$=substr$(bb$,1,".")
while lt( filepos (#15),mf2sl&)
let mf2sp%= getbyte(#15)
if lt( mf2sp% ,97)
let mf2sq%= getbyte (#15)
putbyte #14, val(add$( "$",add$(chr $(mf2sp%), chr $(mf2sq% ) ) ))
let mf2so%= mf2sp%
let mf2sn%= mf2sq%
else
let mf2sk%= 0
while lt(mf2sk%,add(-96, mf2sp%))
add mf2sk%, 1
putbyte #14, val(add$( "$",add$(chr $(mf2so%), chr $(mf2sn% ) ) ))
wend
endif
wend
sendmessage(installer_devtxt&,$402,100,0)
closerw #15
closerw #14
assign #15, mf2sg$
erase #15
sub mf2sj%, mf2sj%
while neq(mf2sj%,99)
add mf2sj%, 001
destroywindow (mf2sh%[mf2sj% ,1])
wend
endproc
Proc Deflate.onl.dllgenerated with myFile2Source
iii
P "À00Á10Â80Ã65Ä04Å74Æ01Ç70È26É20Ê07Ë40Ì6EÍ50Î61Ï83Ð05Ñ08Ò0aÓ72Ô88Õ46Ö02×zzØE6ÙC0Ú96Û90Ü57ÝFFÞ8Bß736F 6Câ03ãF6äDBåC1æ81ç55è47é44ê75ë69ì52í06î78ï11ðF7ñ64ò42ó41ô36õ2Eþ4D5AÛÀâÀbÄÀbÝaÀaBÂ0fËÀzhCÂ0b0E1FBA0EÀBË9CD21BÂ14CCD215Õ8ëßÉÇÓ67ÓÎ6DÉ6ô1ÌaÅÉ6ÈìÊ2êÌÉë"
P "ÌÉé4F53É6DñÃõ0there0A2Ë0f71D4ðä35B599Ô35B599Ô35B599Ô35B599Ô24B599ÔC995ÞÔ34B599ÔBBAA8AÔ34B599Ôìë6ôÏ5B599ÔÀwÍ4ÍÒ4ÙÁ3ÀØA9293Ù0gEÀÀE2ÁBÆÐ0ÙÆÀ0bÁÀb6ÀÒÂßÀbÇÀbÂÀdÁÀÁÀbÖÀaÄÀfÄÀgÛÀbÁÀeÖÀdÁÀaÁÀcÁÀaÁÀeÁÀcæÀa2ËÁ0bÂÀbÆÀy248ÉÒ0Ù0×zdçÍ5ÏÀ0d6À0bÁÀfÄÀiÀcÂÀaEÐçÐÏÁ0dÁÀb"
P "ÇÀbíÀbÄÀmËÀaEÐçÐÏÉ0dÁÀbÂÀbÄÀb0AÀmËÀaÙÀzeÀ××oÀ××oÀ××oÀz31õ323ËÐçÐ82ÁÙÛÉ93867BCCB ìÈ8AC4ìÀaÂâÀb2AÀaÈÀaB6DDBÝCçÞECBÂÁ0C9CÉÙ0BAíÉÀCÇ29Ùã8F2ãFDÌÖ324ÂéÕæ4EÂË3éB97 D7FBÎ8A1ÏFÂÊ431AÁ432ÈÇEFBEEE5CAÀÀAÍ29Í1AÈÅBÛ2DCDFCDê143D3C2BÐBÚ2ÞåCôDñC71ECAñÞ5DÑ6îÛBëÝDD7D"
P "ð0FÞæ1EÑÔâ43ó0EêF1BæF5DCÉËíAÏ8DFD7Eó3A9BÄ676A3EaÎ27ð8ð5BBÁè891D18E14DÞÄ19ÔÖóò3EEFECFDECFÕA776AÖÝ351F38624FCÓ21ô1Ý0BEF5 3BDÊB27DÓFâÛ8Ë6æ4B259ECAC5ØÄA389E2BãCÔ5AîB7DÑÊ0CBÂ3Þ0DÓEFDÝF32F92AÏEÛ13BF97F23B93BÞC7ðE14AB54318ECFË3D0E2ï21FóBCE5C4AB8CEÑÀ0A53FC5"
P "AAC3BôFBÄ5ÛBå68A31F5BÁDFDÔèÇÀÔÎBÐ5BÉÌÑÌÞ3D5F91ÃBFÐ7A3D6ô7CB63ÑCçB2A5ð4ED9DFD8E253BÐ1ðóA9Bæ2238Ã97FDFBó43è3B0D17êEDEBBF315C6Å66ÖED95CBAB5Aå68628FB8AC4ABÄ2A258Cb5DÁ1ËÍÀËÔCc0åCÉ2òAÙ8E8C282ÙÒ5491AË21495é09CDÝ259Ç3Í0A3ÂôãØCëÌÃñ0BÍ54FÈCaÉaÀÝaAÇ8É284329É4D"
P "ì4B2D5ôã6ÅÉ323Ò31äBFC5F2É0D0AÉó28ÃÉÓÃ6ô8Åí7Ã8DCDEFØðÈÈ568Î 0AÌÉõÀa4F4AãBEB9ÝÉé4CaÉ5631õ31é77ÓëÅ1E17FDEDaBß9ßaÃ6D623DÓ2ÛâCÅÇ3A2Fa77BC7DEBBEÀõÇÎÌ1Fõ4ÚÓã9Ç0D68Ç331BÄÀ5Ô5149EÆÖ2295Á24Ýa5FÆìÎß45Ìê6D4ôãEaÃ63ÅëÌßóÏ3DDÞÇ3ÅÓëÃÁèÃÅ2453CDã0Ý6ÅÎÅê1548ÎÌ6êÜÄ1ÍA"
P "21434DäF3D4D3Êô167Ãòî15AD1CDäB0BFé99ðÈEò ßÃ3Õ4FBCB7EDÚCÃ1éÕÚ1 0D4ðí5Ìó0EðÊEÙBçÓ ïìÃÎñÕëËÝDDÝ3ÁÆÁBÐa0F0AÐ0Ba1ÙæËB1Û5Á091ÂæíFEð6631ËÙÍE0ÛóåA2Á92ÉÇAï5BD2FäÇ6Ö0AíÁ0D0B0A0B1ÂEÁ19E0BðD5ÂÒÍ4çéÙÁË0ØA9293CC9F27F3â9EÀÀE2ÁBÆÐ0ÙÀòõD0BôDæÀ3É0D0BÖ1E4BBA59ÛÄÊ0C6"
P "09E0DECBÀ23æÀÇ6AÖ13È0B9DÙ323Æ3òÐ0BÉ149DË51CAÔCô3FÛB95B1EõÅÃîÅ7EâF89èDåÛB3Äò6ÖEÓñEèB6êBÝÎCCC3FB2Ç8Ø1ÌBõËÖõÈ27E51AB62Ú99A3ÆÙCÙ4ã59D30D9ô1Õ3äC82ò8FEêDF9òÅ21BB8CA231B5Á0g0Û0ÝÂ7C2ËÂÁF8ÜDÆÀa60BEÀÇÀÁ8äEÀA0ÝaÜÏCDÝEB0DÛb8AíÕÔÊèÆäêÊÞ1EÏEEFå1äÓEäÂÁ0bÆäêÊÞ1EÏE"
P "EFå1äïÙÆäßEðÍ9Þ1EÏEEFå1äßE431C9ÏEÂ3Ó0DåEÀÔAíÕÏF0ÝÅa89CÍ1äêÊÞ1EÏEEFå1äïCÛ1äêÊÞ1EÏEEFå1äïC9êÉóÆäêÊÞ1EÏEEFå1äïCÛ1äßEðÍ9Þ1EÏEEFå1äßE4ÏåÖæFDÀF3ÝaÏDÁ18D1òFÏFDFC760F8AÖòÔÊè49êðEÚ3ÝbÛÞÖÏCÉ48Ûî3CÇ4ÏEÛè7FÁ1CFE94CÝb5E89ðB913Àb8AÊè2CEÏÙ177ðÂ3FÀêF2ÞÊ8A5FÄ6 1EÂ8å"
P "ÙÁ8 ò9FÔ0EBEÂ1FÑÛî3CÇ589D8E2D98äEÀÍÀaÞÊ09ÙÅ3CÞ5FÄ8D843ÀÊÀÒÆF3ÍÏCÇ8ÝÚñÇÀa958AÊèÑÙÅDC89F9Ü48F2AEçÝÚ68ÇÀa09ÙÅÊ8Û3ÏC3ÄEBE1Î31ÙCÉÙÑ3CÇ48D5EFC31Ù8AÊè09ÙÅ223CEð7ïÆC3Þâ8 4åÙÁ8 Ë1FÑÛ3EBE22ËFåEÆí6ÞÊÏCÇõBEÈ1E9F39AÝaÀ×zdÀ××oÀzyÔÂÀañÂÀm95ÂÀaÇÂÀmA2ÂÀaîÂÀmADÂÀaÂaÀ"
P "aÀsBÔÀÒC6ÂÀeD6ÂÀeE2ÂÀeFÑÀ0e4B4ç24E454C3332õé4CaÀìó53óÍ493332õñ aÀç534ç23332õñ aÀÜ494E494E4çòØÕCaÀa4CÎñ4Cë62ÓÎÓ79óÀaèÃÅÍÓ63óñaÓÃßaÀaìÎß48ÎÌ6êÜÄÁÒ4DÃßaÎ67ÃòîóÀb4ÚEÅÃÓÌÃÅéëÎ ÀeØA9293Ù0c82æÀaÆÀb0Û0b0Û0b2ÔÁÒ4CæÀaÇæÀaÚ1ÉÒäïÀaDÆÀÒ0åÁÒÌÁÀaÕïÀaïÀa0åÀÒBåÀ"
P "Ò8DæÀaA4æÀaB5æÀaåæÀaDÑÁÒE2æÀaðæÀa0B8ÉÒ1ÔÉ0cÆÀÖÀâÀÄÀÐÀíÀÊÀÑÀ4ãØCëÌÃõñ aÀ4ÚEÅÃÓÌÃÅ5FèÃÅ4D794ãØCëÌÃ49ÍÀ4ÚEÅÃÓÌÃÅ5F4ðí5Ìçì4ÙÐÈ1ß5F4ôãEaÃ63ÅÀìÎß5Féëß6ôãEaÃ63ÅÀìÎß5FèÃÅ4ãØCëÌÃ4Ø16DÃÀìÎß5FèÃÅÍÓ76ëñÃÓ4ôð5ÌÅÀìÎß5FèÃÅÍÓ76ëñÃÓ4Ø16DÃÀìÎß5F49ß4ãØCëÌÃÀñ a56ÃÓßë"
P "ÌÀbÇÀa0Ù0b8D33ÀaÀ××oÀ××oÀ××oÀ×zy"
iio
F_Outp "onl.dll"
ENDPROC
h&=createdialog(%desktop,"Daten of PHP receive...",30%,30%,40%,40%)
casenot len($ findfirst("onl.dll")) : Deflate.onl.dll
ed&:=createtext(h&,"Hier The conceived Daten",10%,10%,80%,80%):thickframe
external("onl.dll","Internet_OpenURL","https://de.finance.yahoo.com/d/quotes.csv?s=EURUSD=X&f=sl1d1t1c1ohgv&e=.csv",callmem#)
settext ed&,string $(callmem#,0)
dispose callmem#
waitinput
end
 |
|
| |
| |
| |
|
|
ASKTEC | Hello iF,
thanks for the example. it would beautiful, if it something documents would. I wanted to it testing and get Fehlermeldungen, that variables not declariert are....
Greeting
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 08/08/04 ▲ |
|
| |
|
|
| Kappier I do not, I poste no Sources The not at least by me fehlerfrei functions. which Profan take? have too whom Precompiler?
To denne, iF  |
|
| |
| |
| |
|
|
ASKTEC | Hello iF,
I use XProfan...
Precompiler??? the Better get going well his... where find I the because??
thanks
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 08/08/04 ▲ |
|
| |
|
|
Normann
Strübli | Hi,
Precompiler ALIAS XPSE
in the Forenübersicht really not To verfehlen  |
|
| |
| |
| |
|
(925)
Deutsch
English
Français
Español
Italia