PHP, HTML & JavaScript- Foro | | | | | 
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ß73�6F� 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ÈÀaB6DD�BÝ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òÅ21BB8�CA231B5Á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  |
| | | | | | |
|
AnswerThemeninformationenDieses Thema hat 3 subscriber: |
(665)
Deutsch
English
Français
Español
Italia