<% function GetBytes(flnm, offset, bytes) Dim objFSO Dim objFTemp Dim objTextStream Dim lngSize on error resume next Set objFSO = CreateObject("Scripting.FileSystemObject") ' First, we get the filesize Set objFTemp = objFSO.GetFile(flnm) lngSize = objFTemp.Size set objFTemp = nothing fsoForReading = 1 Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading) if offset > 0 then strBuff = objTextStream.Read(offset - 1) end if if bytes = -1 then ' Get All! GetBytes = objTextStream.Read(lngSize) 'ReadAll else GetBytes = objTextStream.Read(bytes) end if objTextStream.Close set objTextStream = nothing set objFSO = nothing end function function lngConvert(strTemp) lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256))) end function function lngConvert2(strTemp) lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256))) end function function gfxSpex(flnm, width, height, depth, strImageType) dim strPNG dim strGIF dim strBMP dim strType strType = "" strImageType = "(unknown)" gfxSpex = False strPNG = chr(137) & chr(80) & chr(78) strGIF = "GIF" strBMP = chr(66) & chr(77) strType = GetBytes(flnm, 0, 3) if strType = strGIF then ' is GIF strImageType = "GIF" Width = lngConvert(GetBytes(flnm, 7, 2)) Height = lngConvert(GetBytes(flnm, 9, 2)) Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1) gfxSpex = True elseif left(strType, 2) = strBMP then ' is BMP strImageType = "BMP" Width = lngConvert(GetBytes(flnm, 19, 2)) Height = lngConvert(GetBytes(flnm, 23, 2)) Depth = 2 ^ (asc(GetBytes(flnm, 29, 1))) gfxSpex = True elseif strType = strPNG then ' Is PNG strImageType = "PNG" Width = lngConvert2(GetBytes(flnm, 19, 2)) Height = lngConvert2(GetBytes(flnm, 23, 2)) Depth = getBytes(flnm, 25, 2) select case asc(right(Depth,1)) case 0 Depth = 2 ^ (asc(left(Depth, 1))) gfxSpex = True case 2 Depth = 2 ^ (asc(left(Depth, 1)) * 3) gfxSpex = True case 3 Depth = 2 ^ (asc(left(Depth, 1))) '8 gfxSpex = True case 4 Depth = 2 ^ (asc(left(Depth, 1)) * 2) gfxSpex = True case 6 Depth = 2 ^ (asc(left(Depth, 1)) * 4) gfxSpex = True case else Depth = -1 end select else strBuff = GetBytes(flnm, 0, -1) ' Get all bytes from file lngSize = len(strBuff) flgFound = 0 strTarget = chr(255) & chr(216) & chr(255) flgFound = instr(strBuff, strTarget) if flgFound = 0 then exit function end if strImageType = "JPG" lngPos = flgFound + 2 ExitLoop = false do while ExitLoop = False and lngPos < lngSize do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize lngPos = lngPos + 1 loop if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2)) lngPos = lngPos + lngMarkerSize + 1 else ExitLoop = True end if loop ' if ExitLoop = False then Width = -1 Height = -1 Depth = -1 else Height = lngConvert2(mid(strBuff, lngPos + 4, 2)) Width = lngConvert2(mid(strBuff, lngPos + 6, 2)) Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8) gfxSpex = True end if end if end function Set objFSO = CreateObject("Scripting.FileSystemObject") Set objF = objFSO.GetFolder("c:\") Set objFC = objF.Files set objFC = nothing set objF = nothing set objFSO = nothing %> <% function ImageResize(strImageName, intDesiredWidth, intDesiredHeight) dim TargetRatio dim CurrentRatio dim strResize dim w, h, c, strType if gfxSpex(strImageName, w, h, c, strType) = true then TargetRatio = intDesiredWidth / intDesiredHeight CurrentRatio = w / h if CurrentRatio > TargetRatio then strResize = "width=""" & intDesiredWidth & """" else strResize = "height=""" & intDesiredHeight & """" end if else strResize = "onError=src=""http://imageserver.tball.com/logos/pic.jpg""" end if ImageResize = strResize end Function %> Electronics, Digital Cameras, Music Equipment, Car Stereos, Mp3 players Wholesale Distributors
  Advanced Search

 

WHOLESALE ONLY

  

 

 



 

Track your UPS shipment
with your Thunderball Order Number

Track your DHL shipment
with your Thunderball Order Number

DHL Logo


Thunderball is 
open from
8:30 AM to 6:30 PM, Monday - Fri.
10:00 AM to 3:00 PM, Sunday. 
(Call to confirm Friday Hours)

Wholesale Inquiries
Only Please

Sales:
212-645-5600 
Fax:
212-645-6561

Address:

Thunderball Marketing Inc.
111 10 Cragwood Road,
Avenel, NJ 07001 10011-5201


    

You have reached an inactive page at the Thunderball site. Please choose from the links at the left for access.

Thank you.


Company Profile

  • Thunderball has been providing for the needs of the electronics community since 1985.

  • Thunderball has it's own repair center for authorized Pioneer Audio repairs.

  • We provide our own truck shipping within an 80 mile radius of central Manhattan.

  • Centrally located in the heart of Manhattan, America's most outstanding port city, Thunderball ships worldwide by sea, air and land.

 

 
 


Copyright 1999-2001 Thunderball Marketing Inc.
No part of this site may be reproduced without the
 express authorization of Thunderball Marketing Inc..
All Rights Reserved.

For questions regarding this web site please contact