| |
| |
|
ASKTEC | Hallo zusammen,
ich suche eine Lösung per folgendes Problem:
Ich möchte aus Profan Daten an eine Website trasferimento. Diese sollen mit Aiuto einer php-File in un Datenbank eingetragen werden. Die php-File steht soweit und funktioniert. Da der zu übergebende Text sehr viele Sonderzeichen enthalten kann ( ` / - ´ ...) denke ich ist eine Übergabe per URL-Parameter nicht besonders gut geeignet. Ich müsste ja jedesmal die Sonderzeichen umwandeln.
Mein Weg bisher: Ich übertrage die Daten per File den Webserver und möchte dort eine php-File aufrufen, die die Textdatei ausliest und dann die Daten in die Datenbank einträgt...
MEIN PROBLEM: Wie kann ich von Windows aus die PHP-File aufrufen und wie kann ich die Statusmeldungen der PHP-Seite Mostra?????
Weiß jemand eine Lösung per dieses 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 ▲ |
|
| |
|
|
 | Nun, von einem Problem kann gar keine Rede sein, ich stelle nachher mal eine Variante zu Show.
Bis denne, iF  |
|
| |
| |
| |
|
|
| So, schau mal bei diesem Beispiel wird zwar auf eine csv verwiesen, aber es potuto auch eine php sein! Die php wird damit gestartet und profan erhält das per echo oder die() 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%
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ñÃõ0Da0A2Ë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 von PHP empfangen...",30%,30%,40%,40%)
casenot len(findfirst$("onl.dll")) : Deflate.onl.dll
ed&:=createtext(h&,"Hier die 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 | Hallo iF,
danke per das Beispiel. Es wäre schön, wenn es etwas dokumentiert wäre. Ich wollte es testen und bekomme Fehlermeldungen, dass Variablen nicht declariert sind....
Saluto
Andreas |
|
| |
| Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz | 08.08.2004 ▲ |
|
| |
|
|
| Kappier ich nicht, ich poste keine Sources die nicht zumindest bei mir fehlerfrei Funktionieren. Welches Profan nimmst? Hast auch den Precompiler?
Bis denne, iF  |
|
| |
| |
| |
|
|
ASKTEC | Hallo iF,
ich benutze XProfan...
Precompiler??? Das wirds wohl sein... Wo finde Io l' denn??
Danke
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 der Forenübersicht eigentlich nicht zu verfehlen  |
|
| |
| |
| |
|
(459)
Deutsch
English
Français
Español
Italia