Sonderzeichen zu URL Code

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	bruZard Betreff: Sonderzeichen zu URL Code	So, Aug 21, 2005 16:11 Antworten mit Zitat
Wer von Euch mit externen Servern kommunizieren will steht sehr bald vor dem Problem dass bestimmte Zeichen des ASCII Satzes nicht einfach so per URL übertragen werden können. Für dieses Problem habe ich mir eine Funktion geschraubt die vielleicht auch hier der Eine oder Andere nützlich findet. Code: [AUSKLAPPEN] [EINKLAPPEN] Function ConvertURLString:String(line:String) Local char:String Local repl:String line = Replace(line,"%","%25") RestoreData urldata For Local i:Int = 0 To 30 ReadData char,repl line = Replace(line,char,repl) Next Return line End Function #urldata DefData " ","%20","?","%3F","Ä","%C4","Ü","%DC","Ö","%D6" DefData "ä","%E4","ü","%FC","ö","%F6","ß","%DF",Chr(13)+Chr(10),"%0D" DefData "/","%2F",";","%3B","=","%3D",Chr(34),"%22" DefData "(","%28",")","%29","'","%2C",".","%2E",":","%3A" DefData "<","%3C",">","%3E","@","%40","[","%5B","]","%5D" DefData "\","%5C","^","%5E","{","%7B","}","%7D","\|","%7C" DefData "&","%26","#","%23"
PIV 2,4GHz - 1GB DDR 333 - ATI Radeon9600 - WinXP - DX9.0c - BMax 1.14 - B3D 1.91 - 1280x1024x32 User posted image

bruZard

Betreff: Sonderzeichen zu URL Code

So, Aug 21, 2005 16:11
Antworten mit Zitat

Wer von Euch mit externen Servern kommunizieren will steht sehr bald vor dem Problem dass bestimmte Zeichen des ASCII Satzes nicht einfach so per URL übertragen werden können.
Für dieses Problem habe ich mir eine Funktion geschraubt die vielleicht auch hier der Eine oder Andere nützlich findet.
Code: [AUSKLAPPEN]

Function ConvertURLString:String(line:String)
Local char:String
Local repl:String

line = Replace(line,"%","%25")

RestoreData urldata
For Local i:Int = 0 To 30
   ReadData char,repl
   line = Replace(line,char,repl)
Next

Return line
End Function

#urldata
DefData " ","%20","?","%3F","Ä","%C4","Ü","%DC","Ö","%D6"
DefData "ä","%E4","ü","%FC","ö","%F6","ß","%DF",Chr(13)+Chr(10),"%0D"
DefData "/","%2F",";","%3B","=","%3D",Chr(34),"%22"
DefData "(","%28",")","%29","'","%2C",".","%2E",":","%3A"
DefData "<","%3C",">","%3E","@","%40","[","%5B","]","%5D"
DefData "\","%5C","^","%5E","{","%7B","}","%7D","|","%7C"
DefData "&","%26","#","%23"

PIV 2,4GHz - 1GB DDR 333 - ATI Radeon9600 - WinXP - DX9.0c - BMax 1.14 - B3D 1.91 - 1280x1024x32

User posted image