webForumDet fria alternativet

Hex Koden från en bild

ASP

9 svar · 294 visningar · startad av Nickemannen

Medlem sedan aug. 20003 575 inlägg
Frågan#1

Hur får man fram Hex koden från en bild som ligger på en annan server och sin egen server?

------------------
"Brott kanske inte lönar sig, men det är kul"

Medlem sedan apr. 20007 588 inlägg
#2

Det är inte lätt att förstå vad du menar, så du får nog förklara lite mer ingående.

En gissning är att du kanske snackar om checksummor för att kontrollera två olika filer och se om dom är identiska?

------------------
"To iterate is human, to recurse, divine" - L. Peter Deutch

Medlem sedan aug. 20003 575 inlägg
#3

Nej,
jag vill få ut hexkoden från en bild för att en SMS tjänst där jag skall skicka bilden kräver att den skall skickas i Hex kod,
har någon någon aning hur jag gör det i ASP
det finns ju en funktion Hex() men den fungerar bara med nummer

------------------
"Brott kanske inte lönar sig, men det är kul"

Medlem sedan dec. 19996 721 inlägg
#4

1. Vi måste få veta mera om själva "filformatet". Finns det någon dokumentation?

2. Det är inte direkt optimalt att behandla binärdata i ett scriptspråk (det kommer att ta tid att konvertera). Det kanske finns någon komponent som gör det du vill?

Medlem sedan aug. 20003 575 inlägg
#5

Jo, det finns en manual.. men den är skriven för VbScript och inte asp, jag har försökt men kan inte översätta koden till asp.

Det är gif filer det handlar om.

För att kunna skicka bilden så måste jag få ut Hexkoden

Tyvärr har jag ingenting att säga till om när det gäller komponenter på den servern jag skall använda eller kan använda rättare sagt

Adress till pdf-filen: http://www.novelsoft.ch/sms-software/picmsg.pdf

Adress till företagshemsidan: http://www.sms-wap.com

skulle var mycket tacksam för ett svar

------------------
"Brott kanske inte lönar sig, men det är kul"

Medlem sedan dec. 19996 721 inlägg
#6

Okej, det vara bara en liten GIF som skulle konverteras. Då går det att lösa.

Exemplet var i VB, inte VBScript, så ett par modifieringar behövs.

Dim s,hx,strBytes
Dim objStream
Set objStream=Server.CreateObject("ADODB.Stream")
objStream.Type=1
objStream.Open
objStream.LoadFromFile "c:\myimage.gif" 
hx = ""
strBytes=objStream.Read

for i=1 to lenB(strBytes)
	c=MidB(strBytes,i,1) 
	If (c <> "") Then
		s = Hex(AscB(c))
		If (Len(s) = 1) Then
			hx = hx + "0" + s
		Else
			hx = hx + s
		End If
	end if
Next
objStream.Close

response.write "The hex-encoded GIF file is: " & hx

Dock krävs fortfarande att servern är bestyckad med MDAC 2.5 eller högre. Det borde den vara.

Medlem sedan jan. 2001510 inlägg
#7

Wow! Det där lät som filhantering på avancerad nivå! Det måste jag lära mig någon gång!

/JANspeed - (kanske inte riktigt så imponerad men lite i alla fall)

Medlem sedan aug. 20003 575 inlägg
#8

Ett stort tack
Fick mer problem,
koden man ansluter i står också i VBscript.. om det är någon som ´kan konvertera den koden s¨blir jag enormt tacksam =)

------------------
"Brott kanske inte lönar sig, men det är kul"

Medlem sedan dec. 19996 721 inlägg
#9

Som sagt, det är VB, inte VBscript. VBscript är det man använder när man kodar ASP.

Ska kolla på det senare.

Medlem sedan aug. 20003 575 inlägg
#10

Oki,
det skulle vara sjyst

------------------
"Brott kanske inte lönar sig, men det är kul"

256 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)