Avatar billede superraider Nybegynder
03. oktober 2006 - 18:21 Der er 15 kommentarer og
2 løsninger

Scripting.FileSystemObject hjælp

strPathInfo = Request.ServerVariables("APPL_PHYSICAL_PATH")
folder = "../db/pictures/"
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFolder = fs.GetFolder(strPathInfo & folder)
Set objFolderContents = objFolder.Files
open()


For Each objFileItem in objFolderContents
SQL = "SELECT Filnavn FROM PICTURES WHERE Filnavn = '" & objFileItem.Name & "'"
PicturesInDB = Conn.Execute(SQL)
If PicturesInDB.EOF then
'Add picture
end if
Next
close()


Jeg har fået sat følgene op. nogen der har link til en side hvor jeg kan se kommands til at få højde og brede, dato for hvornår billedet er taget(filen created) og sådan noget.

Det er udelukkende billeder der kommer til at ligge i folderen, men det kan koden jo ikke se pt, skal nok få det fixed :) hvis nogen har et par gode sidder eller ideer så skriv gerne
Avatar billede nielle Nybegynder
03. oktober 2006 - 18:31 #1
Det kan ikke gøres med FSO.

Det kræver at du har en grafik-komponent installeret.
Avatar billede keysersoze Ekspert
03. oktober 2006 - 19:15 #2
det er nu ikke helt rigtigt - omend det klart er at foretrække; http://www.codewiki.us/index.php?title=Get_image_width_and_height_with_ASP samt http://www.opfinderen.dk/sites/70/
Avatar billede superraider Nybegynder
03. oktober 2006 - 19:21 #3
er det ikke mulig at tage noget der fra
http://www.codewiki.us/index.php?title=Get_image_width_and_height_with_ASP

og smide ind i For Each objFileItem in objFolderContents lykken så den finder det for hver fil, ka ikke lige overskue det
Avatar billede nielle Nybegynder
03. oktober 2006 - 19:26 #4
sersoze> Kendte faktisk ikke funktionen LaodPicture:

http://www.w3schools.com/vbscript/func_loadpicture.asp

Strengt taget har den nu heller ikke noget at gøre med FileSystemObject, og man kan vel godt kalde den for en grafikkomponent. :^)
Avatar billede nielle Nybegynder
03. oktober 2006 - 19:26 #5
... undskyld at jeg sådan massakrere dit nick. :^|
Avatar billede keysersoze Ekspert
03. oktober 2006 - 19:51 #6
jeg er vant til at blive omdøbt til alle mulige og umulige nicks så et fra eller til overlever jeg nok :)
Avatar billede superraider Nybegynder
03. oktober 2006 - 19:55 #7
ser det her rigtig ud-

strPathInfo = Request.ServerVariables("APPL_PHYSICAL_PATH")
folder = "../db/pictures/"
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFolder = fs.GetFolder(strPathInfo & folder)
Set objFolderContents = objFolder.Files
open()


For Each objFileItem in objFolderContents
SQL = "SELECT Filnavn FROM PICTURES WHERE Filnavn = '" & objFileItem.Name & "'"
PicturesInDB = Conn.Execute(SQL)
If PicturesInDB.EOF then
'DET HER ->
set myImg = loadpicture(strPathInfo & folder & objFileItem.Name)
' <- DET HER
iWidth = round(myImg.width / 26.4583) 
iHeight = round(myImg.height / 26.4583) 
end if
Next
close()
Avatar billede nielle Nybegynder
03. oktober 2006 - 20:24 #8
Hvorfor udføre du noget SQL, når du ikke bruger resultatet til noget? Hvorfor ikke bare læse de filer der er i biblioteket?
Avatar billede superraider Nybegynder
03. oktober 2006 - 20:54 #9
fordi hvis den ikke findes i databasen, så skal den tilføjes.
Avatar billede nielle Nybegynder
03. oktober 2006 - 20:57 #10
Men, du bruger stadigvæk ikke din SELECT til noget. Du udføre den bare og så glemmer du straks resultatet.

Hvis de filer som ikke er i databasen skal indsættes, mangler du også en INSERT INTO sætning.
Avatar billede superraider Nybegynder
03. oktober 2006 - 21:04 #11
if PicturesInDB.EOF and PicturesInDB.BOF then  Der bruger jeg jo mit seleect for at se om den er tom
og ja indsættes i databasen er jo lidt irrelevant for mit spørgsmål :)

Hva andre oplysninger ka jeg få ud af loadpicture() end width and height
Avatar billede nielle Nybegynder
03. oktober 2006 - 21:07 #12
Det er muligt at det er irellevant, men du spurgte jo direkte om koden så korrekt ud. Det synes jeg ikke at den gør når den ikke er bare nogenlunde komplet.
Avatar billede nielle Nybegynder
03. oktober 2006 - 21:09 #13
... men, jo, med dine ekstra oplysninger så ser det nu ikke helt tosset ud. :^)
Avatar billede superraider Nybegynder
03. oktober 2006 - 21:22 #14
;) men ja er lige kommet hjem og fået det tested, så ja detvirker. Men ka ikke finde info om jeg kan få flere oplystninger fra loadpicture, såsom hvornår et billed er taget eller sådan noget. fil størrelse osv
Avatar billede nielle Nybegynder
03. oktober 2006 - 21:28 #15
Jeg tvivler stærkt på at du kan udtrække exif-data fra billederne med LoadPicture.

Tidsstemplket for filen, og størelsen i bytes kan aflæses med FSO.

Mht. referencer på LoadPicture, så har jeg faktisk ikke kunnet finde noget bedre end keysersoze's link - http://www.codewiki.us/index.php?title=Get_image_width_and_height_with_ASP - og dette nævner da mindst et felt mere: Type.
Avatar billede superraider Nybegynder
03. oktober 2006 - 21:57 #16
Ja lukker den her, har vist fået det jeg skal bruge, smidt et svar så kan i dele
Avatar billede nielle Nybegynder
03. oktober 2006 - 22:03 #17
Svar :^)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester