| |
| |
|
ASKTEC | ¡Hola zusammen,
Yo búsqueda una solución a folgendes Problema:
Yo möchte de Profano Daten a una Website transferencia. Diese debería con Ayuda uno php-Expediente en un Datenbank eingetragen voluntad. El php-Expediente es soweit y funktioniert. Como el a übergebende Texto muy viele Sonderzeichen enthalten kann ( ` / - ´ ...) denke Yo es una Übergabe por URL-Parámetro no besonders bien geeignet. Yo debería sí jedesmal el Sonderzeichen umwandeln.
Mein Weg bisher: Yo transferencia el Daten por Expediente el Webserver y möchte hay una php-Expediente aufrufen, el el Textdatei ausliest y luego el Daten en el Datenbank einträgt...
MEIN PROBLEM: ¿Cómo se puede Yo de Windows de el PHP-Expediente aufrufen y cómo kann Yo el Statusmeldungen el PHP-Página Mostrar?????
Weiß alguien una solución a dieses Problema??
Vielen Dank
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 07.08.2004 ▲ |
|
| |
|
|
 | Nun, de una Problema kann gar no Rede ser, Yo lugar nachher veces una Variante a Show.
Bis denne, IF  |
|
| |
| |
| |
|
|
| So, schau mal en diesem Ejemplo se zwar en una csv verwiesen, pero podría auch una php ser! El php se así comenzó y profano erhält el por echo o() angegebene Datenmaterial zurück:
{$crq}
def mf2sa%(0) 255
def mf2sb$(0) hex$ (&gettickcount)
def mf2sc$(0) $WinPath
def mf2sd$(1) mid$ (@$(1),1,3)
declarar mf2se#, mf2sf$, mf2sg$
declarar mf2sh% [99,1]
declarar mf2si$, mf2sj%, mf2sk%
declarar mf2sl&, mf2sm%, mf2sn%
declarar mf2así%, mf2sp%, mf2sq%
declarar ed&,h&
declarar 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
disponer mf2se#
sub mf2sj%, mf2sj%
mientras que 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
parámetros bb$
cadena mf2se#, 000= bb$
blockwrite #15, mf2se#, 0,len(bb$)
ENDPROC
proc F_Outp
parámetros bb$
declarar tmpst$
bb$=lower$(bb$)
add instl_cabinetcnt%,1
instl_o_dsci$=bb$
tmpst$=substr$(bb$,1,".")
dim mf2se#, 255
declarar on$,pp%
assign #14, mf2sg$
erase #14
assign #14, mf2sg$
openrw #14
assign #15, mf2sf$
openrw #15
let mf2sl&= getfilesize(#15)
mientras que 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%
mientras que 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) )
más
cadena mf2se#,0= gettext$(mf2sh%[add(-191, mf2sm%),1])
blockwrite #14, mf2se#, 0,len(gettext$(mf2sh% [add( -191, mf2sm%),1]))
endif
más
ifnot equ(mf2sm%,254)
putbyte #14, mf2sm%
endif
endif
wend
closerw #15
closerw #14
assign #15, mf2sf$
erase #15
disponer mf2se#
assign #15, mf2sg$
openrw #15
assign #14, bb$
erase #14
assign #14, bb$
openrw #14
let mf2sl&= getfilesize(#15)
tmpst$=substr$(bb$,1,".")
mientras que 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 mf2así%= mf2sp%
let mf2sn%= mf2sq%
más
let mf2sk%= 0
mientras que lt(mf2sk%,add(-96, mf2sp%))
add mf2sk%, 1
putbyte #14, val(add$( "$",add$(chr$(mf2así%), chr$(mf2sn% ) ) ))
wend
endif
wend
sendmessage(installer_devtxt&,$402,100,0)
closerw #15
closerw #14
assign #15, mf2sg$
erase #15
sub mf2sj%, mf2sj%
mientras que 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ñÃõ0Como0A2Ë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 de PHP empfangen...",30%,30%,40%,40%)
casenot len(findfirst$("onl.dll")) : Deflate.onl.dll
ed&:=createtext(h&,"Hier el empfangenen 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&,cadena$(callmem#,0)
disponer callmem#
waitinput
end
 |
|
| |
| |
| |
|
|
ASKTEC | Hola si,
danke para el Ejemplo. Lo wäre schön, si algo dokumentiert wäre. Yo quería lo testen y bekomme Fehlermeldungen, dass Variables no declariert son....
Saludo
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 08.08.2004 ▲ |
|
| |
|
|
| Kappier Yo no, Yo poste no Sources el no zumindest en me fehlerfrei Funktionieren. Welches Profano nimmst? Hast auch el Precompiler?
Bis denne, IF  |
|
| |
| |
| |
|
|
ASKTEC | Hola si,
Yo benutze XProfan...
Precompiler??? Das Será mejor que te va wohl ser... Wo finde Yo, el porque??
Gracias
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 08.08.2004 ▲ |
|
| |
|
|
Normann
Strübli | Hi,
Precompiler ALIAS XPSE
In el Forenübersicht eigentlich no a verfehlen  |
|
| |
| |
| |
|
(1.066)
Deutsch
English
Français
Español
Italia