| |
| |
|
ASKTEC | allô zusammen,
je cherche une Solution pour folgendes Problem:
je voudrais aus Profan données à une Website transfert. cet devoir avec Aider einer php-Dossier dans un banque de données eingetragen volonté. qui php-Dossier steht soweit et funktioniert. là qui trop übergebende Text très viele Sonderzeichen enthalten peux ( ` / - ´ ...) denke je ist une Übergabe per URL-paramètre pas besonders bien approprié. je devrait oui chaque fois qui Sonderzeichen transformer.
mon Weg bisher: je übertrage qui données per Dossier den Webserver et voudrais là une php-Dossier appel, qui qui Textdatei ausliest et ensuite qui données dans qui banque de données einträgt...
MEIN PROBLEM: comment peux je de Windows aus qui PHP-Dossier appel et comment peux je qui Statusmeldungen qui PHP-page Montrer?????
sais quelqu'un une Solution pour cet Problem??
Vielen Dank
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 07.08.2004 ▲ |
|
| |
|
|
 | eh bien, de einem Problem peux gar aucun discours son, je lieu après la fois une variante trop Show.
jusqu'à denne, iF  |
|
| |
| |
| |
|
|
| So, exposition la fois chez diesem Beispiel wird zwar sur une csv verwiesen, mais es pourrait aussi une php son! qui php wird avec cela gestartet et profan erhält cela per écho ou bien qui() 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)
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%
tandis 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
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)
tandis que lt( filepos (#15),mf2sl&)
let mf2sm%= getbyte (#15)
si and( gt(mf2sm%,191),lt(mf2sm%, 254))
ifnot len( gettext$(mf2sh%[add(-191, mf2sm%),1]))
let mf2sj%= mf2sm%
sub mf2sm%, mf2sm%
tandis que lt( mf2sm% ,191)
let mf2sm%= getbyte (#15)
si 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) )
d'autre
string mf2se#,0= gettext$(mf2sh%[add(-191, mf2sm%),1])
blockwrite #14, mf2se#, 0,len(gettext$(mf2sh% [add( -191, mf2sm%),1]))
endif
d'autre
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,".")
tandis que lt( filepos (#15),mf2sl&)
let mf2sp%= getbyte(#15)
si lt( mf2sp% ,97)
let mf2sq%= getbyte (#15)
putbyte #14, val(add$( "$",add$(chr$(mf2sp%), chr$(mf2sq% ) ) ))
let mf2so%= mf2sp%
let mf2sn%= mf2sq%
d'autre
let mf2sk%= 0
tandis que 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%
tandis 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ñÃõ0là0A2Ë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 qui 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&,string$(callmem#,0)
dispose callmem#
waitinput
end
 |
|
| |
| |
| |
|
|
ASKTEC | allô iF,
merci pour cela Beispiel. Es wäre joli, si es quelque chose dokumentiert wäre. je voulais es testen et bekomme Fehlermeldungen, dass Variablen pas declariert sommes....
Salut
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 08.08.2004 ▲ |
|
| |
|
|
| Kappier je pas, je Poste aucun Sources qui pas zumindest chez mir correct marcher. Welches Profan prends? la hâte aussi den Precompiler?
jusqu'à denne, iF  |
|
| |
| |
| |
|
|
ASKTEC | allô iF,
je benutze XProfan...
Precompiler??? cela wirds wohl son... wohin finde Je l' car??
merci
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
dans qui Forenübersicht eigentlich pas trop verfehlen  |
|
| |
| |
| |
|
(1.146)
Deutsch
English
Français
Español
Italia