Как лучше всего записать часть файла в область памяти (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: Ну или я не правильно понял вопрос, что весьма вероятно.

Новые блоги и статьи Все статьи Все блоги /
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .
rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .

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

	Как лучше всего записать часть файла в область памяти (AllocateMemory) 30.07.2012, 12:37. Показов 4734. Ответов 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