Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: jeszcze raz z pilikami binarnymi :)
anonim




Typ: Nie zarejestrowany
jeszcze raz z pilikami binarnymi :)

mam taki kod:


    Dim File As Integer
    Dim Length As Long
    Dim Buffer As String
   
    File = FreeFile()
    Open "c:\tast.png" For Binary As #File
    Length = LOF(File)
    Buffer = String$(Length, 0)
    Get #File, , Buffer
    Close #File
    ReadFile = Buffer

niby wszystko ładnie działa, długość fajmnie ładuje, ale gdy przychodzi do:

label1.caption = ReadFile wyświetla tylko pierwszy wiersz, a po dodaniu "msgbox LOF(File)" zaraz po otwarciu pliku pokazuje 2 pierwsze wiersze, co jest źle zrobione?                                                                                                i jr\eszcze jedno pytanko: czy rozmieszczenie linii w pliku ma jakies znaczenie i trzeba uważać na to żeby nie zgubić jakiejś spacji?

dzieki za pomoc

04-05-2004 21:41
  
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

W pliku PNG jest napewno znak zerowy, który oznacza koniec tekstu.

    Dim File As Integer
    Dim Length As Long
    Dim Buffer As String
    Dim Plik() as byte

    File = FreeFile() 
    Open "c:\tast.png" For Binary As #File
    Length = LOF(File) 
    Buffer = String$(Length, 0) 
    ReDim Plik(1 to Lenght)
    Get #File, , Plik
    Close #File
    ReadFile = Buffer

I zawartość pliku znajdzie się w tablicy, jedna komórka tablicy będzie jednym bajtem.


_____________________________________________
www.mob.abc.pl - moja strona o VB

04-05-2004 23:04
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1