Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: problem z get
sueli




Typ: neutral
Postów: 3
Zarejestrowany: Apr 2004
problem z get

Napisalam program ktory tworzy histogram z pliku bmp.
Program dziala znakomicie, Chcialam zrobic z tej czesci kodu biblioteke dll.Niestety wyskakuje blad 458 ""variable uses on Automation type not supporten in VB"
A teraz czesc kodu, ktora otwiera plik i wrzuca dane z jego naglowka do tablicy dynamicznej(potrzebne by stwierdzic czy plik jest bitmapa):
Open plikName For Binary As #znak
ReDim dane(LOF(znak))
For i = 1 To LOF(znak)
Get #znak, i, dane(i)
Next i
dlugosc = i - 1
Close #znak
Blad jest na funkcji get. Nie wiem dlaczego, skoro normalnie dziala.Czy ktos moze mi pomoc?

25-04-2004 13:29
Pokaż profil sueli  Wyślij email do sueli   
sueli




Typ: neutral
Postów: 3
Zarejestrowany: Apr 2004

ok, jesli nie bardzo wiadomo co z tym jest to moze da sie jakos inaczej odczytac ten plik. musi byc tylko binarnie i do tablicy. Czy da sie to zrobic funkcja np. INPUT?

28-04-2004 10:47
Pokaż profil sueli  Wyślij email do sueli   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Zrobiłam dll i projekt testowy u siebie na pliku bmp, chodzi to, kod w funkcji otwierającej plik jest jest taki:

Dim dane() As Byte
znak = FreeFile

Open plikName For Binary As #znak
ReDim dane(LOF(znak))
For i = 1 To LOF(znak)
    Get #znak, i, dane
Next i
Close #znak
dlugosc = i - 1


Być może nie masz zadeklarowanej tablicy jako Byte, bo w takim przypadku wystepuje podana przez Ciebie informacja o błędzie ?


_____________________________________________
Karolina

29-04-2004 08:33
Pokaż profil karolinavb  Wyślij email do karolinavb   
sueli




Typ: neutral
Postów: 3
Zarejestrowany: Apr 2004

Masz racje, zadeklarowalam tablice as byte ale nie przenioslam tej deklaracji do biblioteki tylko zostawilam ja w projekcie.
Get #znak, i, dane -tu chyba przeoczylas tablice, powinno byc dane(i) , przynajmniej u mnie tylko tak dziala.
Wielkie dzieki Karolina. Na dziewczyny zawsze mozna liczyc

29-04-2004 22:10
Pokaż profil sueli  Wyślij email do sueli   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1