УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 60 из 677

Опции темы

Поиск в этой теме

Опции просмотра

#591

10.09.2007, 23:52

Ni0x

Постоянный

Регистрация: 27.08.2006

Сообщений: 367

Провел на форуме:
2009677

Репутация: 472

Ну во-первых, нужно приводить код полностью, во-вторых, научиться пользоваться отладчиком.

#592

11.09.2007, 00:34

GlOFF

Постоянный

Регистрация: 08.05.2006

Сообщений: 816

Провел на форуме:
1845671

Репутация: 1338

PandoraBox Реально попробуй сам найти ошибку как говорит Ni0x -Все просто!!!

Цитата:

научиться пользоваться отладчиком.

// P.S. Просто реально отпадут очевидные вопросы и многие непонятные проблемы, которые покажет отладчик в виде возврата из функций невалидного значения, по которому ТЫ сможешь судить о валидности параметров и ещё .....

#593

11.09.2007, 00:59

PandoraBox

Постоянный

Регистрация: 06.05.2007

Сообщений: 393

Провел на форуме:
1510937

Репутация: 398

Отправить сообщение для PandoraBox с помощью ICQ

#594

11.09.2007, 08:10

yeti

Постоянный

Регистрация: 27.12.2006

Сообщений: 379

Провел на форуме:
1983988

Репутация: 1037

PandoraBox, хмм... API и дельфи... просто суешь после каждой строчки(подозрительной) мессаджбокс. тупо компилишь, запускаешь.. если не вылетает мессаджбокс - знач в пред строчке бага... ВСЕ

#595

11.09.2007, 08:54

PandoraBox

Постоянный

Регистрация: 06.05.2007

Сообщений: 393

Провел на форуме:
1510937

Репутация: 398

Цитата:

Сообщение от Shnurovka

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

между

Код:

var
 OpenStr, SaveStr, DelemStr, BtnStart: PChar;
 FullF, ClearF: TextFile;
 i: integer;
 s: String;
begin
    {Clear process}
    CurUpTimeHr := 0;
    CurUpTimeMin := 0;
    CurUpTimeSec := 0;
    Stop := False;  

    SetTimer(hWnd, 1, 1000, @TimerWork);
    GetDlgItemText(hWnd, 1, @OpenStr, MAX_PATH-1);
    GetDlgItemText(hWnd, 3, @SaveStr, MAX_PATH-1);
    GetDlgItemText(hWnd, 5, @DelemStr, MAX_PATH-1);

Код:

    AssignFile(FullF, OpenStr);
    Reset(FullF);
    AssignFile(ClearF, SaveStr);
    ReWrite(ClearF);

    try
     UpdateWindow(hWnd);
     while not EOF(FullF) do
     begin
      if Stop = True then
      begin
       CloseFile(FullF);
       CloseFile(ClearF);
       SetDlgItemText(hWnd, 8, 'Старт');
       KillTimer(hWnd, 1);
       EnableWindow(GetDlgItem(hWnd,1), True);
       EnableWindow(GetDlgItem(hWnd,2), True);
       EnableWindow(GetDlgItem(hWnd,3), True);
       EnableWindow(GetDlgItem(hWnd,4), True);
       Exit;
      end;
      i := i + 1;
      SetDlgItemText(hWnd, 6, PChar(IntToStr(i)));
      UpdateWindow(hWnd);
      ReadLn(FullF, s);
      if pos(DelemStr, s) > 0
       then WriteLn(ClearF, Copy(s, 0, pos(DelemStr, s) - 1));
      UpdateWindow(hWnd);
     end;

#596

11.09.2007, 11:29

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

Провел на форуме:
1892597

Репутация: 836

Отправить сообщение для W!z@rD с помощью ICQ

Код:

var
 OpenStr, SaveStr, DelemStr, BtnStart: PChar;
// BtnStart-?
 FullF, ClearF: TextFile;
 i: integer;
 s: String;
begin
    {Clear process}
    CurUpTimeHr := 0;
    CurUpTimeMin := 0;
    CurUpTimeSec := 0;
    Stop := False;  

    SetTimer(hWnd, 1, 1000, @TimerWork);

    GetDlgItemText(hWnd, 1, OpenStr, MAX_PATH-1);
    GetDlgItemText(hWnd, 3, SaveStr, MAX_PATH-1);
    GetDlgItemText(hWnd, 5, DelemStr, MAX_PATH-1);

Код:

    AssignFile(FullF, OpenStr);
    Reset(FullF);
    AssignFile(ClearF, SaveStr);
    ReWrite(ClearF);

    try
     UpdateWindow(hWnd);
     while not EOF(FullF) do
     begin
      if Stop = True then
      begin
       CloseFile(FullF);
       CloseFile(ClearF);
       SetDlgItemText(hWnd, 8, 'Старт');
       KillTimer(hWnd, 1);
       EnableWindow(GetDlgItem(hWnd,1), True);
       EnableWindow(GetDlgItem(hWnd,2), True);
       EnableWindow(GetDlgItem(hWnd,3), True);
       EnableWindow(GetDlgItem(hWnd,4), True);
       Exit;
      end;
      i := i + 1;
      SetDlgItemText(hWnd, 6, PChar(IntToStr(i)));
      UpdateWindow(hWnd);
      ReadLn(FullF, s);
      if pos(DelemStr, s) > 0
       then WriteLn(ClearF, Copy(s, 0, pos(DelemStr, s) - 1));
      UpdateWindow(hWnd);
     end;

[/QUOTE]
такс... ну и еще взгляну...

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

#597

11.09.2007, 12:54

Xserg

Участник форума

Регистрация: 09.12.2006

Сообщений: 135

Провел на форуме:
426226

Репутация: 726

PandoraBox
procedure TimerWork(HWND,uMsg,idEvent,dwTime:dword);stdcall; <- Не забыл?
begin end;

#598

11.09.2007, 15:42

PandoraBox

Постоянный

Регистрация: 06.05.2007

Сообщений: 393

Провел на форуме:
1510937

Репутация: 398

Цитата:

Сообщение от Xserg

PandoraBox
procedure TimerWork(HWND,uMsg,idEvent,dwTime:dword);stdcall; <- Не забыл?
begin end;

Забыл : stdcall; :B

Код:

procedure TimerWork;
begin
 CurUpTimeSec := CurUpTimeSec + 1;

 if CurUpTimeSec = 60 then
 begin
   CurUpTimeSec  := 0;
   CurUpTimeMin  := CurUpTimeMin + 1;
 end;

 if CurUpTimeMin = 60 then
 begin
   CurUpTimeMin  := 0;
   CurUpTimeHr   := CurUpTimeHr + 1;
 end;
 SetDlgItemText(hWnd, 7, PChar(IntToStr(CurUpTimeHr) + ':' + IntToStr(CurUpTimeMin) + ':' + IntToStr(CurUpTimeSec)));
end;

#599

11.09.2007, 19:01

Xserg

Участник форума

Регистрация: 09.12.2006

Сообщений: 135

Провел на форуме:
426226

Репутация: 726

Цитата:

Сообщение от PandoraBox

Забыл : stdcall; :B

Ну тогда делись кодом, где у тебя инициализация.
OpenStr, SaveStr, DelemStr, BtnStart: PChar;

#600

11.09.2007, 20:45

PandoraBox

Постоянный

Регистрация: 06.05.2007

Сообщений: 393

Провел на форуме:
1510937

Репутация: 398

Код:

function MainDlg(hWnd: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM): Integer; StdCall;
var
 Open, Save, Delem, Btn: array [0..MAX_PATH-1] of Char;
 OpenStr, SaveStr, DelemStr, BtnStr: String;
   procedure TimerWork; stdcall;
   begin
    ......
   end;
 .....
begin
 case msg of
 ......
   WM_COMMAND : begin
   if LOWORD(wParam) = 8 then
   begin
    .....
    GetDlgItemText(hWnd, 1, Open, SizeOf(Open));
    GetDlgItemText(hWnd, 3, Save, SizeOf(Save));
    GetDlgItemText(hWnd, 5, Delem, SizeOf(Delem));
    GetDlgItemText(hWnd, 8, Btn, SizeOf(Btn));

    OpenStr := Open;
    SaveStr := Save;
    DelemStr := Delem;
    BtnStart := Btn;

    SetTimer(hWnd, 666666, 1000, @TimerWork);

    if PChar(BtnStr) = 'Начать' then
    begin
     SetDlgItemText(hWnd, 8, 'Стоп');
     AssignFile(FullF, OpenStr);
     Reset(FullF);
     AssignFile(ClearF, SaveStr);
     ReWrite(ClearF);
     try
      UpdateWindow(hWnd);
      while not EOF(FullF) do
      begin
        .....
        UpdateWindow(hWnd);
      end;
     end;
   ....
  end;

begin
 DialogBox(hInstance, 'MAIN', 0, @MainDlg);
end.

Зы пришлось мутить такую муть шоб нормально прочитало >:]

Куда поместить ProcessMessages for WinAPI?

Код:

while GetMessage(m, hWnd, 0, 0) do begin
        TranslateMessage(m);
        DispatchMessage(m);
       end;

Последний раз редактировалось PandoraBox; 11.09.2007 в 21:00..

Страница 60 из 677

« Предыдущая тема | Следующая тема »

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход