dotNETportal.cz

Četl jsem zde téma o INI a zkoušel jsem úpravy,ale nepomohlo to.

Problém je následující ve VB (2005 ale ted jsem to převedl pod VB 2008).

Mám nastavený zápis a čtení INI souboru. Při snaze zapsat nebo číst z INI souboru mi hází chybu s přístupem do chráněné pamětí. Nevíte jak se to opravit nebo co by to mohlo způsobit? Na začátku když jsem to začal používat to běhalo bez problému.

zde kontroluji hodnoty. pokud nejsou tak je ma načíst z INI

If SERVER1 Is Nothing Or SERVER1 = "" Then
            ' RtoINIserver(SERVER1, DATABASE1, PREFIX1, UID1, PASS1, names_char1)
            Form2.ShowDialog()
        End If

zapis a čtení INI mam takto.

Module Module2
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal lpFileName As String) As Long

    Function WtoINIm()
        WritePrivateProfileString("M", "Adresar", "c:\B\", "c:\B\m.ini")
    End Function

    Function WtoINIserver(ByVal SERVER1, ByVal DATABASE1, ByVal PREFIX1, ByVal UID1, ByVal PASS1, ByVal names_char1)
        WritePrivateProfileString("SERVER", "Server1", SERVER1, "c:\B\m.ini")
        WritePrivateProfileString("SERVER", "Databaze", DATABASE1, "c:\B\m.ini")
        WritePrivateProfileString("SERVER", "Prefix", PREFIX1, "c:\B\m.ini")
        WritePrivateProfileString("SERVER", "Jmeno", UID1, "c:\B\m.ini")
        WritePrivateProfileString("SERVER", "Heslo", PASS1, "c:\B\m.ini")
        WritePrivateProfileString("SERVER", "ZnakSada", names_char1, "c:\B\m.ini")
    End Function
    Function RtoINIserver(ByVal SERVER1 As String, ByVal DATABASE1 As String, ByVal PREFIX1 As String, ByVal UID1 As String, ByVal PASS1 As String, ByVal names_char1 As String)
        GetPrivateProfileString("SERVER", "Server1", "", SERVER1, "c:\B\m.ini")
        GetPrivateProfileString("SERVER", "Databaze", "", DATABASE1, "c:\B\m.ini")
        GetPrivateProfileString("SERVER", "Prefix", "", PREFIX1, "c:\B\m.ini")
        GetPrivateProfileString("SERVER", "Jmeno", "", UID1, "c:\B\m.ini")
        GetPrivateProfileString("SERVER", "Heslo", "", PASS1, "c:\B\m.ini")
        GetPrivateProfileString("SERVER", "ZnakSada", "", names_char1, "c:\B\m.ini")
    End Function
End Module

Kdyby jste mohli poradit jak to udělat, protože mne nic nenapadá proč to hazí takovou chybu.

S chybami s pamětí jsem si taky užil svoje a nikdy jsem nepřišel na to proč mi vznikali, proto jsem po čase vždycky rezignoval. Nemám pro Vás sice konstruktivní řešení, ale rád bych na Vás apeloval, abyste použil XML soubor, pokud je to možné (INI si vytváříte sám). řeji štěstí při řešení problému!

ono je to v podstatě jedno kde to bude uložené. Já potřebuji někam uložit nastavení aplikace aby uživatel když si ji otevře, nemusel opět zadávat údaje. A já mohl bez problému přistupovat k tomuto souboru a dávat do něj další nastavení. Tak aby se s tím dalo dobře dělat.

Právě proto jsem zvolil INI soubor, protože je to přehledné atd., ale ta paměť mne teda dost dostala. už jsem prošel asi kde co a na důvod jsem nepřišel. ze začátku mi to chodilo bez problému. řekl bych že to má něco společné s chybou manifest, ale přesně co a proč nevím.

a s tím XML to myslíte jak? vytvořit xml soubor a pak jej zase načíst? jde o to že aplikace do toho souboru bude přistupovat dost často.

tak jsem to hned zkusil s tim My.Settings a je to bezva náhrada. Já teda s XML dělám dost často import/export ale tohle mi po pravdě uteklo. Vždyť VB dělá s XML všude. To je tak když člověk je zabraný do něčeho a nekouká. Díky za nasměrování.

je to dělané ve VB2005. Ale teď jsem přešel na VB2008. Ten kód ale fungoval a chodilo bez problému. Pak došlo ke změně něčeho a od té doby to dělá paseku. Už jsem to ale vyřešil jinak. Cele INI jsem poslal k šípku a využil systémové věci VB (XML My.Settings).

Díky za radu.

Ikdyž mne pořád zajímá jak mohlo a hlavně proč to dělá paseku.