#post-id: 3087-14-33
#original-date: 7.01.2009 Wed
#original-time: 2:33 PM
#original-day:  3087
#original-host: WinXP Prof SP2 (Build 2600)

Чего только у себя не находишь! Например оказалось, что у меня в общей библиотеке две одинаковфе функции: asAddBackSlash() и asMakeFullPath(). А ещё оказалось, что в последней есть такая вот штукенция:

LPWSTR Ptr = PathAddBackslashW((LPWSTR)usSourcePath);
  if (Ptr != usSourcePath.ValueW) CoTaskMemFree(Ptr);

От куда я взяла такое - понятия не имею OO'

#music: Crystal Method\Vegas\Keep Home Alive

---

#post-id: 3087-09-57
#original-date: 7.01.2009 Wed
#original-time: 9:57 AM
#original-day:  3087
#original-host: WinXP Prof SP2 (Build 2600)

Пилять, столько справочников, и хоть в одном бы вместо красочных примеров и цветных буковок было бынаписано, где этот долбаный CString определён >_<

#music: m.o.v.e\Deep Calm\DEEP CALM

---

#post-id: 3087-08-28
#original-date: 7.01.2009 Wed
#original-time: 8:28 AM
#original-day:  3087
#original-host: WinXP Prof SP2 (Build 2600)

Раз пошла такая пьянка, решила продолжить играться с SAFEARRAY...

#include <AJP System.H>

#pragma INSERT IGNORE_AJP_ID

#define RETURN_FALSE  {*RetVal = VBFalse; return S_FALSE;}
#define RETURN_TRUE   {*RetVal = VBTrue;  return S_OK;}

//===================================================================
// Функция сравнивает одномерные байтовые массивы на предмет 
// различий.
//===================================================================
EXP_AJPAPI(HRESULT) asIsBuffersEqual(SAFEARRAY    **pBuffer1,
                                     SAFEARRAY    **pBuffer2,
                                     VARIANT_BOOL *RetVal)
{
  CHECK_RETVAL;
  if (pBuffer1 == NULL) return E_INVALIDARG;
  if (pBuffer2 == NULL) return E_INVALIDARG;
  
  // Для удобства...
  SAFEARRAY *Buffer1 = *pBuffer1;
  SAFEARRAY *Buffer2 = *pBuffer2;
  
  // Тут если оба массива не инициализированы, то они одинаковые ^^ 
  // А если только один из ни, то и сравнивать смысла нет...
  if (Buffer1 == NULL && Buffer2 == NULL) RETURN_TRUE;
  if (Buffer1 != NULL && Buffer2 == NULL) RETURN_FALSE;
  if (Buffer1 == NULL && Buffer2 != NULL) RETURN_FALSE;
  
  // Сравниваем только массивы в одно измерение...
  if (Buffer1->cDims != 1) RETURN_FALSE;
  if (Buffer2->cDims != 1) RETURN_FALSE;
  
  // Сравниваем размерность массивов...
  if (Buffer1->rgsabound->cElements != Buffer2->rgsabound->cElements) RETURN_FALSE;
  
  // Теперь блокируем массивы чтобы получить доступ к данным...
  SafeArrayLock(Buffer1);
  SafeArrayLock(Buffer2);
  
  // Для удобства скастуем к массиву ^^
  BYTE *ByteBuff1 = (BYTE*)Buffer1->pvData;  
  BYTE *ByteBuff2 = (BYTE*)Buffer2->pvData;  
  
  // Сравниваем данные!
  for (DWORD TMP = 0; TMP < Buffer1->rgsabound->cElements; TMP++) {
    if (ByteBuff1[TMP] != ByteBuff2[TMP]) {
      // Оперативно разблокируем массивы и выходим...
      SafeArrayUnlock(Buffer1);
      SafeArrayUnlock(Buffer2);
      RETURN_FALSE;
    }
  }
  
  // Разблокируем!
  SafeArrayUnlock(Buffer1);
  SafeArrayUnlock(Buffer2);
  
  RETURN_TRUE;
}

В принципе, ни чего особо сложного, просто муторно... Всё тоже самое в VB делается так:

Private Function IsBuffersEqual(ByRef Buffer1() As Byte, _
                                ByRef Buffer2() As Byte) As Boolean
  Dim TMP As Long
  Dim RC As Boolean
  
  On Error Resume Next
  
  ' Размерность массивов должна быть одинаковой...
  RC = CBool(LBound(Buffer1) = LBound(Buffer2))
  If Err Then Exit Function
  If Not RC Then Exit Function
  
  RC = CBool(UBound(Buffer1) = UBound(Buffer2))
  If Err Then Exit Function
  If Not RC Then Exit Function
  
  ' А теперь проверяем побайтно...
  For TMP = LBound(Buffer1) To UBound(Buffer2)
    If Buffer1(TMP) <> Buffer2(TMP) Then Exit Function
  Next TMP
  
  IsBuffersEqual = True
End Function

Вообще, BSTR и SAFEARRAY похожи на реализацию плана "А теперь пусть сишники пострадают!".

#music: Gorky Park\02 Дорожка 2.wma

---

#post-id: 3087-06-49
#original-date: 7.01.2009 Wed
#original-time: 6:49 AM
#original-day:  3087
#original-host: WinXP Prof SP2 (Build 2600)

Век живи - век учись, дураком помрёшь ^^' Оказалось, что Redim ещё и объявляет переменную! А я-то думала, от куда массив берётся, если его объявление я удалила, а Option Explicit всегда стоит...

Caution   The ReDim statement acts as a declarative statement if the variable it declares doesn't exist at module level or procedure level. If another variable with the same name is created later, even in a wider scope, ReDim will refer to the later variable and won't necessarily cause a compilation error, even if Option Explicit is in effect. To avoid such conflicts, ReDim should not be used as a declarative statement, but simply for redimensioning arrays.

#music: Gorky Park\10 Дорожка 10.wma

---

#post-id: 3087-06-20
#original-date: 7.01.2009 Wed
#original-time: 6:20 AM
#original-day:  3087
#original-host: WinXP Prof SP2 (Build 2600)

В 2007 The Prodigy выпускают трек «First Warning», который до этого игрался только вживую. Студийная версия, отличающиеся от концертной, была выпущена саундтреком к фильму «Smokin' Aces».В этом же году группа выпускает 3 трека: «Shadow», «Shadow Of The Devil» и «The Shadow». Все они, кроме похожих названий, имеют общую структуру и представляют собой немного изменённые версии друг друга. Shadow (6:54) вышел саундтреком к игре «Project Gotham Racing 4», Shadow Of The Devil (2:59) появился на сборнике саундтреков к английскому фильму ужасов «Reverb», а The Shadow (4:07) стал звуковой дорожкой к аниме «Vexille».

Последние слова заслуживают внимания...

А вот ещё интересная вещь ^^

В детстве Кейт обожал «Pink Floyd» и всю британскую рок-культуру. Об этом также свидетельствует его образ тех времен: длинные волосы, кожаная куртка. Кейт много путешествовал на своём мотоцикле и объездил огромное количество разных мест.В 80-е Кейт, как и другие участники «Prodigy», увлекся рейв культурой и не пропускал ни одной рейв-вечеринки. Но, несмотря на имидж психопата, Кейт очень добрый и отзывчивый. Одно из его любимых увлечений — работать в саду. Но вот чем действительно болен Кейт, так это мото-гонками. Ходят слухи, что он даже как-то предложил поджечь себя на одном из выступлений. Но сам он категорически опровергает эту информацию.

#music: Gorky Park\04 Дорожка 4.wma

---

#post-id: 3087-04-39
#original-date: 7.01.2009 Wed
#original-time: 4:39 AM
#original-day:  3087
#original-host: WinXP Prof SP2 (Build 2600)

АААААА!!! Я победила их!!! Теперь даже в японской Windows работает!!! Моя собственная реализация StrConv для двоичных данных! Правда, она всё равно работает по правилам русской кодировки, но зато везде одинаково и двоичные данные не портятся! Я супер!

Правда теперь кучу кода придётся перелопатить... А написала простенький тест из той программы, в которой я впервые столкнулась с проблемой, и заработало всё у меня только раза с третьего - оказалось, что проблема в нескольких местах...

Сейчас ещё бенчмаркик маленький сделаем и посмотрим как оно...

Зато было весело! И BSTR с SAFEARRAY подучила.

#music: Freestylers feat. Piera\Told you so

---

#post-id: 3087-04-04
#original-date: 7.01.2009 Wed
#original-time: 4:04 AM
#original-day:  3087
#original-host: WinXP Prof SP2 (Build 2600)

Кстати, в серии наруты про поиск Бикочу, мне вот что интересно. Целый лес, такая драка из-за одного жука. Ну нашли бы двух и разошлись бы мирно. Может быть подружились бы... Нет же, нужен мордобой...

---

#post-id: 3086-11-19
#original-date: 6.01.2009 Tue
#original-time: 11:19 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Хы. История повторяется. Сначала BBC орала о российской агрессии и танках на подходе к Тбилиси, а потом вдруг заткнулась, лишь изредка выдавая "Но ведь же Россия правда агрессор?" Сейчас было началась газовая буча, но снова стихла. ЦРУ, Обама, Сектор Газа, про, собственно, газ тишина. Мда. Ка ксобаки, которых спускают по необходимости. Закз есть - орут, заказ закончился - заткнулись. Тоже мне, свободные СМИ.

---

#post-id: 3086-10-46
#original-date: 6.01.2009 Tue
#original-time: 10:46 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Вау! Это круто! Вырубила буку, Windows сказала мне, что я могу и дальше юзать файлы, ну и я пошла их юзать ^^ Прямо с сетевого диска ^^

---

#post-id: 3086-09-30
#original-date: 6.01.2009 Tue
#original-time: 9:30 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Жаль что я не умею создавать теневых клонов, а то бывает хочется сразу и рассказ написать, и программу поправить, и анимэ посмотреть, и диски пописать... А не получается, так и мечешься, ни чего толком не делая...

#video: Naruto - 157

---

#post-id: 3086-09-17
#original-date: 6.01.2009 Tue
#original-time: 9:17 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Хы. Ранмару покушал кари и ходить научился.

#video: Naruto - 157

---

#post-id: 3086-09-09
#original-date: 6.01.2009 Tue
#original-time: 9:09 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

О, чуть покрасивше ^^

EXP_AJPAPI(HRESULT) StrConvW(BSTR      Text,
                             SAFEARRAY **pOutBuff)
{
  // Строки проверяем каждый раз...
  if (Text == NULL) return E_INVALIDARG;
  // Даже если массив не инициализирован, нам передадут указатель но 
  // нулевой указатель. Так что проверяем...
  if (pOutBuff == NULL) return E_INVALIDARG;
  
  // Для удобства сохраняем указатель на массив.
  SAFEARRAY *OutBuff = *pOutBuff;
  
  // Длина строки будет полной, а не только до первого нуля. Нам это 
  // и нужно - у нас двоичные данные...
  DWORD StrLen = (DWORD)SysStringLen(Text);
  
  // Выделяем буфер для перекодированых данных. Заодно от ошибки 
  // подстрахуемся...
  BYTE *Buff = NULL;
  
  TRY {
    Buff = new BYTE[SysStringByteLen(Text)];
  } CATCH {
    return E_OUTOFMEMORY;
  }
  
  // Теперь пробегаем по массиву и перегоняем всё в буфер. исходный 
  // массив по два байта в элементе, а готовый - один. Всё что выше 
  // одного байта переделываем в ноль - такого там быть не должно.
  for (DWORD TMP = 0; TMP < StrLen; TMP++) {
    USHORT Ch = (USHORT)Text[TMP];
    if (Ch > 255) Ch = 0;
    Buff[TMP] = (BYTE)Ch;
  }
  
  // Объявляем структуру, которая нужна для указания новой 
  // размерности массива. Потом инициализируем её - количество 
  // элементов - длина строки, первый индекс - нолик.
  SAFEARRAYBOUND SAB;
  HRESULT RC = 0;
  
  SAB.cElements = StrLen;
  SAB.lLbound = 0;
  
  // В первом случае массив неинициализирован, тоесть его какбы 
  // вообще не существует. Мы должны его создать. Для этого 
  // указываем тип данных и размерность.
  if (OutBuff == NULL) {
    OutBuff = SafeArrayCreate(VT_UI1, 1, &SAB);
    if (OutBuff == NULL) {
      return E_OUTOFMEMORY;
    }
  }
  // Во втором случае мы просто меняем его размер - все необходимые 
  // действия система по идее сделает сама...
  else {
    RC = SafeArrayRedim(OutBuff, &SAB);
    if (RC != S_OK) {
      delete Buff;
      return RC;
    }
  }
  
  // Блокируем массив, чтобы получить в член-переменную указатель на 
  // данные, пишем туда данные из временного буфера и разблокируем 
  // массив.
  SafeArrayLock(OutBuff);
  
  TRY {
    CopyMemory(OutBuff->pvData, Buff, StrLen);
  } CATCH {
    // Если при копировании произошла какая-то ошибка, смотрим был ли 
    // инициализирован массив (если нет - уничтожаем его), а потом 
    // выходим.
    SafeArrayUnlock(OutBuff);
    if (*pOutBuff == NULL) {
      SafeArrayDestroy(OutBuff);
      delete Buff;
      return E_OUTOFMEMORY;
    }
  }
  
  SafeArrayUnlock(OutBuff);
  
  // Возвращаем указатель на массив. И временный буфер освобождаем...
  *pOutBuff = OutBuff;
  delete Buff;
  
  return S_OK;
}

Блин, придётся же писать обратную функцию...

---

#post-id: 3086-08-36
#original-date: 6.01.2009 Tue
#original-time: 8:36 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Цитата #402029
Ппц. Игры - зло. Вчера сидел, никого не трогал, играл в гта4. Проходил миссию, где нужно набрать мобильный номер и позвонить мужику. Для удобства записал номер на бумажке. Сегодня прихожу домой - получаю люлей. И знаешь за что?! За то, что я был у любовницы!

Моя девушка нашла бумажку с номером телефона. Ну, позвонила, там трубку взяла девушка, на вопрос: "А, Алексея можно?", она ответила: "Сейчас позову". Моя, ессно, бросила трубку...

Ладно, свою я успокоил... Теперь остаётся только пожелать того же другому Алексею, которому, я думаю, тоже влетело неслабо


Цитата #402026
Predy: Ааааа, Лёха, я тебе 100р не отдал (
Кузя: Потом отдашь
Predy: Напомни только, пожалуйста!
Кузя: Хорошо, если сам не забуду.
Predy: Я знаю, что я сделаю
Кузя(100рублей): Что?


Цитата #402022
Tishka17: Медведев в поздравлении по ящику говорит "через несколько мгновений сменятся цифры на календаре".

Tishka17: В ужасе представил, как арабские цифры заменяются на что-то непонятное....


Цитата #402019
xxx: Когда конец света будет близок, люди видимо тоже будут звонить друг другу, но уже тоскливо так говорить: "С наступающим..."


Цитата #402017
xxx: У нас на работе запретили телевизор, карты и спать.
xxx: Так мы в "менеджер" стали играть.
xxx: Начальник полчаса с открытым ртом стоял...

#music: m.o.v.e\Deep Calm\Spiritual Tattooist

---

#post-id: 3086-08-21
#original-date: 6.01.2009 Tue
#original-time: 8:21 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Всё, я его победила ^^' Как всегда, проблема оказалась в указателях >_< Вот над этим кодом я страдала всё это время:

EXP_AJPAPI(HRESULT) StrConvW(BSTR      Text,
                             SAFEARRAY **pOutBuff)
{
  // Check param...
  if (Text == NULL) return E_INVALIDARG;
  if (pOutBuff == NULL) return E_INVALIDARG;
  
  SAFEARRAY *OutBuff = *pOutBuff;
  
  //MsgBox((LPWSTR)Text);
  //MsgBox((DWORD)lstrlenW(Text));
  //MsgBox((DWORD)SysStringLen(Text));
  //MsgBox((DWORD)SysStringByteLen(Text));
  
  DWORD StrLen = (DWORD)SysStringLen(Text);
  
  BYTE *Buff = NULL;
  Buff = new BYTE[SysStringByteLen(Text)];
  
  for (DWORD TMP = 0; TMP < StrLen; TMP++) {
    USHORT Ch = (USHORT)Text[TMP];
    if (Ch > 255) Ch = 0;
    Buff[TMP] = (BYTE)Ch;
  }
  
  SAFEARRAYBOUND SAB;
  
  SAB.cElements = StrLen;
  SAB.lLbound = 0;
  
  if (OutBuff == NULL) {
    OutBuff = SafeArrayCreate(VT_UI1, 1, &SAB);
    //OutBuff->cbElements = StrLen;
  }
  else {
    //OutBuff->cDims = 1;
    SafeArrayRedim(OutBuff, &SAB);
  }
  
  //SafeArrayDestroyData(OutBuff);
  //SafeArrayAllocData(OutBuff);
  
  SafeArrayLock(OutBuff);
  CopyMemory(OutBuff->pvData, Buff, StrLen);
  SafeArrayUnlock(OutBuff);
  
  //MsgBox((DWORD)OutBuff->pvData);
  //MsgBox((DWORD)OutBuff->cDims);
  //MsgBox((DWORD)OutBuff->rgsabound->cElements);
  //MsgBox((DWORD)OutBuff->rgsabound->lLbound);
  
  // Если нам передавался неинициализированный массив, возвращаем новый.
  if (*pOutBuff == NULL) *pOutBuff = OutBuff;
  
  delete Buff;
  return S_OK;
}

Принимаются любые идеи по приведению этого в человеческий вид ^^'

---

#post-id: 3086-08-11
#original-date: 6.01.2009 Tue
#original-time: 8:11 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Пипец >_< Ни чего не начинает работать, пока не почувствуешь полное отчаяние >_< Оказалось, что в TLB масси вобъявляется так:

[in, out] SAFEARRAY(BYTE) *OutBuff

А в коде C++ вот так:

SAFEARRAY **OutBuff

И вот из-за этих звёздочек и неинициализированного массива, который передаётся как NULL я сидела всю ночь >_<

Ух, заработало >_< Теперь бы с неинициализированным массивом разобраться >_<

---

#post-id: 3086-06-56
#original-date: 6.01.2009 Tue
#original-time: 6:56 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Эти указатели на указатели постоянно скрываются от умов вибишников ^^' Полночи билась головой об SAFEARRAY пока не поняла, что передавать в функцию указатель на струкутру - всё равно что ByVal ^^'

---

#post-id: 3086-04-44
#original-date: 6.01.2009 Tue
#original-time: 4:44 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Это ещё что такое? Панель управления в меню у меня начала быстро выводиться, почти мгновенно, хотя раньше долго думала!

---

#post-id: 3086-04-00
#original-date: 6.01.2009 Tue
#original-time: 4:00 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Включила автономные файлы, объявила папку VC++ автономной. Всё заработало гораздо быстрее не обращаясь к буке! Вот, оказывается, для чего нужны автономные файлы! Чтобы Вижуал Студио по сети запускать ^^

---

#post-id: 3086-03-45
#original-date: 6.01.2009 Tue
#original-time: 3:45 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

О! Хентайщик, да еще и под Creative Commons!

http://hitmann.deviantart.com

Надо бы тоже к лицензии подмазаться ^^

#music: m.o.v.e\Deep Calm\Spiritual Tattooist

---

#post-id: 3086-02-23
#original-date: 6.01.2009 Tue
#original-time: 2:23 AM
#original-day:  3086
#original-host: WinXP Prof SP2 (Build 2600)

Звиздец ^^' Мне было лень и вообще влом копировать VC++ 6 на настольную машину, поэтому я запустила её по сети ^^ К счастью, оно относится к тому классу продуктов, которые работают почти без установки ^^