Оберон-клуб «ВЄДАsoft»

PROCEDURE Start*;
VAR
	i : WinApi.BOOL;
	str: ARRAY 100 OF CHAR;
	contentClipboard: INTEGER;
BEGIN
	i := WinApi.OpenClipboard (0);
	contentClipboard := WinApi.GetClipboardData (WinApi.CF_TEXT);
	str := WinApi.GlobalLock (contentClipboard);
 
	StdLog.String (str);
	i := WinApi.GlobalUnlock (contentClipboard);
	i := WinApi.CloseClipboard ()
END Start;

IMPORT w := WinApi, Log;
 
VAR
  membuf: w.HGLOBAL; (* Это не адрес памяти, а хэндл - её идентификатор *)
  adr: w.PtrVoid; (* А вот это уже будет адрес блока памяти *)
BEGIN
  membuf := w.GlobalAlloc(w.GMEM_FIXED + w.GMEM_ZEROINIT, 2048);
  IF membuf = w.NULL THEN (* По какой-то причине память выделить не удалось *)
  END;
 
  (* Идентификатор, полученный от функции GlobalAlloc, нельзя использовать
    для адресации памяти непосредственно. Напомним, что пока вы
    не зафиксировали блок памяти, его логический адрес недоступен. *)
 
  (* Для получения доступа к полученному блоку памяти его необходимо
    зафиксировать, вызвав функцию GlobalLock *)
 
  adr := w.GlobalLock(membuf);
  IF adr = w.NULL THEN (* По какой-то причине не удалось зафиксировать блок *)
  END;
 
  (* Работаем с выделенным блоком *)
  Log.String("GlobalAlloc allocated "); Log.Int(w.GlobalSize(membuf); Log.String(" bytes");
 
  ...
 
  IF w.GlobalUnlock(membuf) THEN END; (* Разблокируем блок памяти. Игнорируем результат *)
 
  membuf := w.GlobalFree(membuf); (* Освобождаем выделенную память *)
  IF membuf # w.NULL THEN (* По какой-то причине не удалось освободить память *)
  END;

IMPORT SYSTEM;
 
...
 
VAR ch: SHORTCHAR;
BEGIN
  SYSTEM.GET(adr, ch); (* Получили первый байт (символ) из памяти *)
  ...
  SYSTEM.GET(adr+1, ch); (* Получили второй байт (символ) из памяти *)
  ...
  SYSTEM.PUT(adr+9, 20X); (* Записали код пробела " " в десятый байт памяти *)
END