Последние сообщения

Помогите разобратся:

Код: (ASM)

.386
...
WinProc proc
  push  ebp
  mov   ebp,esp
  push      ebx
  push  esi
  push  edi
  ...
  cmp   dword ptr [ebp+0Ch],WM_COMMAND
  je    wmcommand
  ...
  jmp   defwndproc
  ...
  wmcommand:
    mov   eax,hbut
    cmp   [ebp+14h],eax     ;нажали цифру или "."  
    je    nabor                     ;переходим сюда
    ...
    mov   eax,hbutS
    cmp   [ebp+14h],eax     ;нажали "+"  
    je    plus                        ;переходим сюда
    ...
    mov   eax,hbutI
    cmp   [ebp+14h],eax     ;нажали "="  
    je    itog                         ;переходим сюда
    ...
    mov   eax,hbutC
    cmp   [ebp+14h],eax     ;нажали "C"--> butC db " ",0  
    je    clear                       ;переходим сюда
    ...
    jmp   exit
    nabor:
      push  16
      push  offset buf            ;получаем содержимое буфера (символы)
      push  [hedt]        
      call  GetWindowTextA@12
      add   eax,offset buf     ;добавляем его к тому, что в еах    
      push  16
      push  eax                    ;туда-же добавляем
      push  [EBP+14h]         ;символ кнопки
      call  GetWindowTextA@12
      push  offset buf           ;набранное число (что конвертировать: string или hex ?)    
      push  [hedt]                  
      call  SetWindowTextA@8
      ;где-то здесь будет конвертация
      mov   esi,eax              ;сбрасываем набранные символы в esi
      jmp   exit
    plus:                            ;нажимаем "+"
      mov   str1,esi             ;сохраняем 1-e число в str1 и...
      mov   esi,0                 ;...очищаем esi
      mov   edi,hbutS          ;сохраняем хэндл кнопки в edi
      call    clearproc             ;очищаем дисплей
      jmp   exit
    ...
    itog:                           ;набрали 2-е число, НАЖИМАЕМ "=" и смотрим,  
      cmp   hbutS,edi         ;если разница содержимого = 0 то...                            
      je    plus_ex              ;...переходим сюда <--- ПЕРЕХОДА НЕ ПОЛУЧАЕТСЯ
      ...
      jmp   exit
      plus_ex:
        call  clearproc       ;очищаем дисплей     <---ЕСЛИ ОТАВИТЬ ЭТО    
        mov   str2,esi        ;сохраняем 2-е число в str2 и...
        mov   esi,0           ;...очищаем esi
        mov   edi,0           ;убираем хэндл кнопки из edi
        mov   eax,buf         ;освобождаем буфер
        fld   str1               ;str1-->st(0)
        fld   str2               ;str2-->st(0),str1-->st(1)
        fadd                     ;str1+str2-->st(0)
        fstp  buf                ;st(0)-->buf
        fwait
        ;где-то здесь будет конвертация
        push  buf             ;здесь сумма
        push  [hedt]          ;выводим её на дисплей
        call  SetWindowTextA@8
        jmp   exit               <--- И ЭТО - ДИСПЛЕЙ ДОЛЖЕН ОЧИСТИТСЯ - ЭТОГО НЕ ПРОИСХОДИТ
      ...
   exit:                      
     mov   eax,0
     jmp   finish
   ...
   finish:
        pop       edi
        pop       esi
        pop       ebx
        pop       ebp
        ret       16
winproc endp
clearproc proc
  push  offset Edt
  push  [hedt]
  call  SetWindowTextA@8
  ret
clearproc endp
end go

Не получается переход plus-->itog-->plus_ex, основанный на сохранении и последующем сравнении хэндела кнопки операции.

[galliy]

galliy, А почитать открытые источники по ключевым словам очень сложно? Или вы хотите, чтобы люди тратили свое свободное время, описывая RTFM?

Например одно из ключевых слов в официальном источнике телеграмма

Configuring the Application

To be able to send APNS notifications to Apple servers or GCM notifications to Google servers, application certificates (APNS) or an application key (GCM) must be specified in the application settings.

Дальше ишеш как работают нотафикаторы эпла и гугла.

спасибо, сейчас прошерстю)

Если ты считаешь, что нашел багу, поищи ее упоминание в сети. Если нет, напиши багрепорт с максимально простым тестом воспроизведения. Но, думаю, на 99% — ты ошибся. Один процент оставлю на багу и это даже много.

Немного оффтопа.

чудны дела твои, линукс

"Мыши плакали, кололись, но продолжали грызть кактус" (с)

вы будете смеяться но таймера в дебиане, том, который у меня, не поддерживают большую частоту тиков.
надо мне 200 мс.
ставлю, при непрерывной работе валится примерно на 2000м тике.
если на каждом тике останавливаю, и после выполнения необходимых операций, рестартую с указанием тикнуть через 200 мс, то выдерживает до 20 000 таких рестартов. и трындец.
в итоге перешел с таймеров на потоки (threads)

в винде никаких таких проблем не было. хоть непрерывно, хоть с остановками.
уродская это какая-то система, недоделанная.

пуш ip-адреса сервера телеграма в клиентское ПО телеграма, я не ослышался?

1) клиентское ПО телеграма можно повалить, если пушать в него фейковые адреса сервера чаще, чем сами сервера телеграма это делают?

2) большинство юзеров имеет новые ip-адреса при каждом цикле отключение-подключение к инету, тогда пушем в них новые адреса серверов телеграма не затолкаешь. как же клиентское ПО получает новые адреса серверов?

В это теме только один пост с бредом.

[galliy]

galliy, А почитать открытые источники по ключевым словам очень сложно? Или вы хотите, чтобы люди тратили свое свободное время, описывая RTFM?

Например одно из ключевых слов в официальном источнике телеграмма

Configuring the Application

To be able to send APNS notifications to Apple servers or GCM notifications to Google servers, application certificates (APNS) or an application key (GCM) must be specified in the application settings.

Дальше ишеш как работают нотафикаторы эпла и гугла.

1. Попробуй запушь. Удачи.
2. Пуш для мобильных ОС. Читаем хотя бы вики.

я просил, как клиентское ПО телеграма на КОМПЕ узнает о новых ip-адресах. Остальное - ваш бред

Немного оффтопа.

чудны дела твои, линукс

"Мыши плакали, кололись, но продолжали грызть кактус" (с)

пуш ip-адреса сервера телеграма в клиентское ПО телеграма, я не ослышался?

И приснится же такое

[StringGrid]

Есть StringGrid 3 на 10. Хочу сделать сортировку всех столбцов по второму столбцу с помощью

Код: (Delphi)

function StrCmpLogicalW(psz1, psz2: PWideChar): Integer; stdcall; external 'shlwapi.dll';

Встал вопрос как в эту функцию передать параметры?
Решено

Код: (Delphi)

procedure TForm1.SortGrid(ST: TStringGrid; Column: Integer);
var
  I, I2: integer;
  SL: TStringList;
begin
  try
    SL := TStringList.Create;
    try
      for I := 1 to ST.RowCount - 2 do // С 1, чтобы не трогать FixedRows
      begin
        for I2 := I + 1 to ST.RowCount - 1 do
        begin
          // Cортируем по возрастанию
          if StrCmpLogicalW(PWideChar(ST.Cells[Column, I]), PWideChar(ST.Cells[Column, I2])) > 0 then
          begin
            SL.Assign(ST.Rows[I]);
            ST.Rows[I] := ST.Rows[I2];
            ST.Rows[I2] := SL;
          end;
        end;
      end;
    except
    end;
  finally
    FreeAndNil(SL);
  end;
end;