Как лучше всего записать часть файла в область памяти (AllocateMemory)

@Le Thaw · Регистрация: 07.09.2010

Студворк — интернет-сервис помощи студентам

Добрый день. Вопрос в теме.
Мне в голову приходит только считывать строки из файла, складывать их, и записывать как одну строку. Но это бред. Тем более если надо записать определенное число байт.

@Quiet Snow · 01.08.2012, 21:50

Что именно имеется в виду? Это?

Думаю да

так удобнее, Le Thaw сможет заранее определить, какими кусками
передавать файл.

Я просто не помню уже, можно ли модифицировать в пюре участок памяти согласно структуре.
Т.е. не заводя переменную, а действуя через указатель, говорил я в общем то про это.

@locm · 01.08.2012, 22:02

Сообщение от >Quiet Snow<

Я просто не помню уже, можно ли модифицировать в пюре участок памяти согласно структуре.
Т.е. не заводя переменную, а действуя через указатель, говорил я в общем то про это.

Можно.
Модификация памяти по смещениям 10 и 30.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Structure Send
  Name.s{10}
  Param.l
EndStructure
 
 
*Point = AllocateMemory(100)
If *Point
  
  *Send.Send  = *Point + 10
  *Send\Name  = "Клиент"
  *Send\Param = 10
  
  
  *Send       = *Point + 30
  *Send\Name  = "12345678"
  *Send\Param = 20
  
  ShowMemoryViewer(*Point, 100)
  
  FreeMemory(*Point)
EndIf

Или так, результат будет одинаков.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Structure Send
  Name.s{10}
  Param.l
EndStructure
 
 
*Point = AllocateMemory(100)
If *Point
  
  *Send.Send  = *Point + 10
  *Send\Name  = "Клиент"
  *Send\Param = 10
  
  
  *Send       + 20  ; Смещение относительно первоначального, т. е. 30 байт от начала памяти.
  *Send\Name  = "12345678"
  *Send\Param = 20
  
  ShowMemoryViewer(*Point, 100)
  
  FreeMemory(*Point)
EndIf

@Quiet Snow · 01.08.2012, 22:12

Вот это вообще удобнейшая фишка, т.к можно позиционировать место памяти, с которым
работаешь с точностью до байта и не нужно думать, сколько занимает элемент структуры и
где он расположен, чудеса.

@Le Thaw · 01.08.2012, 22:49 **[ТС]**

А как принимать структуру?

@Quiet Snow · 01.08.2012, 23:11

Le Thaw, вот locm давал код.

Отправка структурированного блока данных

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
Structure Send
  Name.s{20}
  Param.l
EndStructure
 
Send.Send
 
Send\Name = "Клиент"
Send\Param = 10
 
; Допустим соединение уже установлено.
 
SendNetworkData(ClientID, @Send, SizeOf(Send))

А принимать так же

Приём структурированного блока данных

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Structure Receive
  Name.s{20}
  Param.l
EndStructure
 
Receive.Receive
 
; Допустим соединение уже установлено.
 
BytesOk = ReceiveNetworkData(Connection, @Receive, SizeOf(Receive))
If BytesOk <> DataBufferLength Or BytesOk = -1
    MessageRequester ("Ошибка", "Ошибка соединения!")
EndIf
 
Debug Receive\Name               ; Смотрим что пришло
Debug Receive\Param

Выдержка из справки

На стороне сервера 'Connection' определяет клиента, который послал данные. ClientID можно получить с помощью функции EventClient()).
На стороне клиента, 'Connection' определяется командой OpenNetworkConnection().

@Le Thaw · 01.08.2012, 23:24 **[ТС]**

Я просто хотел отправить элемент списка)
На Debug Receive\Name выдает ошибку памяти

@locm · 01.08.2012, 23:33

Сообщение от Le Thaw

Я просто хотел отправить элемент списка)

Смотря что хранится в этом элементе.
Если все данные находятся непосредственно в элементе, то можно отправить.

Добавлено через 2 минуты

Сообщение от Le Thaw

На Debug Receive\Name выдает ошибку памяти

Какая версия PureBasic?
В 4.61 этот код работает нормально.

PureBasic
1
2
3
4
5
6
7
8
Structure Receive
  Name.s{20}
  Param.l
EndStructure
 
Receive.Receive\Name = "1234"
 
Debug Receive\Name

@Le Thaw · 01.08.2012, 23:35 **[ТС]**

Если все данные находятся непосредственно в элементе, то можно отправить.

Думал что можно передать весь список) Но видимо это слишком жестко.
А почему строка не передается так?

Сообщение от Le Thaw

На Debug Receive\Name выдает ошибку памяти

Добавлено через 1 минуту
Так у меня тоже работает. А попробуйте это.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
InitNetwork()
 
Global Port = 6667
 
CreateNetworkServer(0, Port)
 
*File = AllocateMemory(1000)
 
Structure Main
  ID.l
  Name.s
EndStructure
Main.Main
 
Repeat
  SEvent = NetworkServerEvent()
  If SEvent
    ClientID = EventClient()
    Select SEvent
      Case #PB_NetworkEvent_Data
        ReceiveNetworkData(ClientID, @Main, 1000)
        Debug Main\ID
        Debug Main\Name
    EndSelect
  EndIf
ForEver
End

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
InitNetwork()
 
Global IP.s = "127.0.0.1"
Global Port = 6667
 
Global Connection = OpenNetworkConnection(IP, Port)
 
Structure Main
  ID.l
  Name.s{20}
EndStructure
Main.Main
 
Main\ID = 1
Main\Name = "RaSet"
 
 
SendNetworkData(Connection, @Main, SizeOf(Main))
 
Delay(2000)

@locm · 01.08.2012, 23:40

Сообщение от Le Thaw

Думал что можно передать весь список)

Можно, но не весь сразу, а по кускам.
Список это такой объект, в котором один элемент находится в одной области памяти, а другой элемент, в другой области.
Вообще, связанный список, это ряд структур (число структур равно числу элементов списка).

Добавлено через 2 минуты

Сообщение от Le Thaw

А попробуйте это.

Есть существенная разница в структурах.

Сообщение от Le Thaw

Structure Main
ID.l
Name.s
EndStructure

Сообщение от Le Thaw

Structure Main
ID.l
Name.s{20}
EndStructure

В первом случае, в структуре хранится только указатель на строку (строка может быть очень длинной), а во втором, вся строка (длина строки не больше указаной у объявлении переменной, в нашем случае, 20 символов).

@Le Thaw · 02.08.2012, 21:56 **[ТС]**

Ааа... Понятно. Спасибо большое.

Добавлено через 21 час 45 минут
А как передать структурой переменную и выделенную память? До меня не доходит. Пробовал по разному.

@locm · 02.08.2012, 22:13

Сообщение от Le Thaw

А как передать структурой переменную и выделенную память? До меня не доходит.

До меня тоже не дошло что имелось в виду.
Для чего это нужно?

Добавлено через 2 минуты
А... понял. Не внимательно прочитал....
Нужно в выделенную память дописать данные структуры, пример, после чего отправить функцией SendNetworkData().

@Quiet Snow · 03.08.2012, 16:10

передать структурой переменную и выделенную память?

Заводить выделенный блок памяти больше на размер переменной(раз она структурирована).
И копировать данные из переменной в выделенную память.
Тут нужно понимать, куда копировать, если в начало, то тогда нужно данные
в выделенной памяти расположить после данных переменной(как это будет сделано в
программе не суть, перенести блок данных или просто загрузить куда нужно), а если в конец,
то достаточно просто скопировать переменную по смещению после данных.

В предыдущих постах я писал как это делать, там всё наглядно показано.

P.S: Ну или я не правильно понял вопрос, что весьма вероятно.

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752

	Как лучше всего записать часть файла в область памяти (AllocateMemory) 30.07.2012, 12:37. Показов 4793. Ответов 31 Метки нет (Все метки) Добрый день. Вопрос в теме. Мне в голову приходит только считывать строки из файла, складывать их, и записывать как одну строку. Но это бред. Тем более если надо записать определенное число байт. 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	01.08.2012, 22:12
	Вот это вообще удобнейшая фишка, т.к можно позиционировать место памяти, с которым работаешь с точностью до байта и не нужно думать, сколько занимает элемент структуры и где он расположен, чудеса. 0

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752
	01.08.2012, 22:49 [ТС]
	А как принимать структуру? 0

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752
	01.08.2012, 23:24 [ТС]
	Я просто хотел отправить элемент списка) На Debug Receive\Name выдает ошибку памяти 0

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752
	02.08.2012, 21:56 [ТС]
	Ааа... Понятно. Спасибо большое. Добавлено через 21 час 45 минут А как передать структурой переменную и выделенную память? До меня не доходит. Пробовал по разному. 0