| Вопрос: сохранка в .НЕТ | Добавлено: 07.04.05 20:58 |
Автор вопроса:  Дмитрий Щапов
|
|
Как сохранить сразу структуру допустим или ,если в стандартных так ого нет, то как в строку получить данные? А? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 07.04.05 21:44 |
| API WriteFile, укажи ей указатель на структуру, и ее размер... | ||
|
Номер ответа: 2 Автор ответа: Дмитрий Щапов Вопросов: 71 Ответов: 321 |
Профиль | Цитата | #2 | Добавлено: 07.04.05 23:01 |
|
А как узнать размер структуры. Words.Lenght мне возвращает кол-во элементов, а Len и подавно не может.
Public Class clsX Public Structure WordStrukt Public Идентификатор As String Public Значение As String Public LanPacks As clsX End Structure Dim Words() as WordStrukt class end и в объявлениях апи бэйсика устроит as object вместо as any? Или лучше байтовый массив ему задать. |
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 08.04.05 10:16 |
|
Private Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Int32, ByVal lpBuffer As Int32, ByVal nNumberOfBytesToWrite As Int32, ByRef lpNumberOfBytesWritten As Int32, ByRef lpOverlapped As OVERLAPPED) As Int32
Гм... ты не сможешь такую структуру записать в память по одной единственной причине  Даже по двум...
1. clsX - я не знаю что это такое
2. В As String хранится не строка а указатель на строку... Если желаешь изменить сие чудо, строки должны быть фиксированной длинны... |
||
|
Номер ответа: 4 Автор ответа:  ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 08.04.05 10:28 |
|
Первый вопрос: для какой задачи это нужно?
Возможно, Вам стоит использовать сериализацию. Пример: <Serializable()> _ Public Class clsTaskDump Public Position As Int32 Public Query As String End Class '... Dim Dump As New clsDump Dump.Position = 24 Dump.Query = "kill bill" Dim fs As New IO.FileStream("C:\dump.config", FileMode.Create) Try  im bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
bf.Serialize(fs, Dump) fs.Flush() Finally fs.Close() End Try |
||
|
Номер ответа: 5 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 08.04.05 10:28 |
|
Забыл про загрузку из файла в память написать.
Dim Dump As clsDump Dim fs As New IO.FileStream("C:\dump.config", FileMode.Open) Try im bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
ump = CType(bf.Deserialize(fs), clsTaskDump)
Finally fs.Close() End Try |
||
|
Номер ответа: 6 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | Цитата | #6 | Добавлено: 09.04.05 19:07 |
|
Первый вопрос: для какой задачи это нужно?
ну чтобы всю структуру в один раз сзять и сохранить и наоборот. Здесь она простая, но в жизни существуют и посложнее. Я покожусь устаревшим, но вот я достаю список процессов и не могу загрузить иконку - памяти не хватает ListView1.Items.Clear() ImageProcessList.Images.Clear() Dim Procs As System.Diagnostics.Process() = Process1.GetProcesses Dim Im As Icon Dim I As Int16 For I = 1 To UBound(Procs) If Procs(I).MainWindowHandle.ToString <> "0" Then With ListView1.Items.Add(Procs(I).ToString()) 'Im.FromFile(Procs(I).MainModule.FileName) Im = Im.FromHandle(Procs(I).MainWindowHandle) ImageProcessList.Images.Add(Im) .ImageIndex = ImageProcessList.Images.Count End With End If Next |
||
|
Номер ответа: 7 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | Цитата | #7 | Добавлено: 09.04.05 20:34 |
| Прикинте счастье какое: 5,5сек и весь жеский чист! Я офигенно "рад" | ||
|
Номер ответа: 8 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | Цитата | #8 | Добавлено: 10.04.05 18:08 |
|
ЛЮДИ! Помогите бедному коммунисту - Не дайте погибнуть родине! У кого есть исходник как достать иконку из exe файла? На .NET |
||
|
Номер ответа: 9 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | Цитата | #9 | Добавлено: 10.04.05 18:40 |
| Спасибо Павел, то что надо! | ||
Страница: 1 |