VPF::Перевести код С++ в Delphi - Форум программистов

maestro2k

Дата 6.1.2007, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Здравствуйте. Помогите резобратся с синтаксисом СИ. Ест код который складывает в памяти две нетипизированые структуры pitemiDList. Нужно реализовать на делфи.

Код


LPITEMIDLIST Append(LPCITEMIDLIST pidlBase, LPCITEMIDLIST pidlAdd)
{
    if(pidlBase == NULL)
        return NULL;
    if(pidlAdd == NULL)
        return (LPITEMIDLIST)pidlBase;
    
    LPITEMIDLIST pidlNew;

    UINT cb1 = GetSize(pidlBase) - sizeof(pidlBase->mkid.cb);
    UINT cb2 = GetSize(pidlAdd);

    pidlNew = (LPITEMIDLIST)pMalloc->Alloc(cb1 + cb2);
    if (pidlNew)
    {
        CopyMemory(pidlNew, pidlBase, cb1);
        CopyMemory(((LPSTR)pidlNew) + cb1, pidlAdd, cb2);
    }
    return pidlNew;
}

Это сообщение отредактировал(а) Snowy - 6.1.2007, 14:26

Alexeis

Дата 6.1.2007, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


function Append(pidlBase : LPCITEMIDLIST;  pidlAdd : LPCITEMIDLIST) : LPITEMIDLIST;
var
   pidlNew : LPITEMIDLIST;
   cb1 : UINT;
   cb2 : UINT; 
Begin
  if pidlBase = nil
  then
    Begin
      Result := nil;
      exit
    end;

  if pidlAdd = nil
  then
    Begin
      Result := pidlBase;
      exit
    end;

    cb1 = GetSize(pidlBase) - sizeof(pidlBase.mkid.cb);
    cb2 = GetSize(pidlAdd);

    pidlNew = GetMem(cb1 + cb2);
    if pidlNew <> nil
    then
      Begin
          CopyMemory(pidlNew, pidlBase, cb1);
          CopyMemory((LPSTR(pidlNew)) + cb1, pidlAdd, cb2)
      end;
    Result := pidlNew;
end;

Это сообщение отредактировал(а) Alexeis - 6.1.2007, 15:31

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

maestro2k

Дата 15.1.2007, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Ошибка! в функции GetMem(cb1 + cb2).
Параметры должны быть GetMem(P:Pointer; Size: integer);

Никак не могу разобраться как сложить эти пидлы...

Alexeis

Дата 15.1.2007, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Ошибся чуток smile

Код


function Append(pidlBase : LPCITEMIDLIST;  pidlAdd : LPCITEMIDLIST) : LPITEMIDLIST;
var
   pidlNew : LPITEMIDLIST;
   cb1 : UINT;
   cb2 : UINT; 
Begin
  if pidlBase = nil
  then
    Begin
      Result := nil;
      exit
    end;
  if pidlAdd = nil
  then
    Begin
      Result := pidlBase;
      exit
    end;
    cb1 := GetSize(pidlBase) - sizeof(pidlBase.mkid.cb);
    cb2 := GetSize(pidlAdd);
    GetMem(pidlNew, cb1 + cb2);
    if pidlNew <> nil
    then
      Begin
          CopyMemory(pidlNew, pidlBase, cb1);
          CopyMemory(Pointer(integer(pidlNew) + cb1), pidlAdd, cb2)
      end;
    Result := pidlNew;
end;

--------------------

maestro2k

Дата 15.1.2007, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Alexeis респект!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »