
04.05.2010, 14:15
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Отлаживай программу по шагам, и найдешь где косяк
В этом месте что ты передаешь в метод:
RegExp.Exec(result); ? что у тебя хранится в переменной result?
И вот эту хню:
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg' );
поменяй на
Image1.Picture.Bitmap.LoadFromStream(ms);
потому что бессмысленно сохранять в файл, чтобы тут же из файла загрузить :-D
|
|
|

04.05.2010, 14:31
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
RegExp.Exec(result); ? что у тебя хранится в переменной result?
result: string; так?
И вот эту хню:
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg' );
поменяй на
Image1.Picture.Bitmap.LoadFromStream(ms);
сделал.
|
|
|

04.05.2010, 14:42
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Повторяю: отлаживай программу по шагам, так проще всего найти где ошибка
Я лично не собираюсь брать твой код на отладку
|
|
|

04.05.2010, 17:59
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Есть какой нибудь компонент для дельфи, что бы из png конвертировать в jpeg|bmp ?
Просто какая то капча тупая попалась, не грузится в дельфи и все...
|
|
|

04.05.2010, 21:31
|
|
Познающий
Регистрация: 02.12.2009
Сообщений: 37
С нами:
8653311
Репутация:
15
|
|
HakaR, посмотри тут компонент. На счет конвертирования я не знаю но помочь с пнг должен.
|
|
|

04.05.2010, 23:34
|
|
Познающий
Регистрация: 21.12.2008
Сообщений: 93
С нами:
9152066
Репутация:
39
|
|
PHP код:
ShellExecute(Self.Handle, 'open', 'help/help.doc', nil, nil, SW_SHOWNORMAL);
ShellExecute(Self.Handle, 'open', 'help/help.avi', nil, nil, SW_SHOWNORMAL);
выполняется на bitbtnclick.
Под хр открывает и работает идеально. Но под виндовс 7 вообще не реагирует. Подскажите пожалуйста, как можно решить эту проблему. (проверилось на нескольких семерках и хр - шках).
|
|
|

04.05.2010, 23:42
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
Сообщение от crazy~driver
PHP код:
ShellExecute(Self.Handle, 'open', 'help/help.doc', nil, nil, SW_SHOWNORMAL);
ShellExecute(Self.Handle, 'open', 'help/help.avi', nil, nil, SW_SHOWNORMAL);
выполняется на bitbtnclick.
Под хр открывает и работает идеально. Но под виндовс 7 вообще не реагирует. Подскажите пожалуйста, как можно решить эту проблему. (проверилось на нескольких семерках и хр - шках).
ShellExecute
Return Values
If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application.
If the function fails, the return value is an error value that is less than or equal to 32. The following table lists these error values:
Value Meaning
0 The operating system is out of memory or resources.
ERROR_FILE_NOT_FOUND The specified file was not found.
ERROR_PATH_NOT_FOUND The specified path was not found.
ERROR_BAD_FORMAT The .EXE file is invalid (non-Win32 .EXE or error in .EXE image).
SE_ERR_ACCESSDENIED The operating system denied access to the specified file.
SE_ERR_ASSOCINCOMPLETE The filename association is incomplete or invalid.
SE_ERR_DDEBUSY The DDE transaction could not be completed because other DDE transactions were being processed.
SE_ERR_DDEFAIL The DDE transaction failed.
SE_ERR_DDETIMEOUT The DDE transaction could not be completed because the request timed out.
SE_ERR_DLLNOTFOUND The specified dynamic-link library was not found.
SE_ERR_FNF The specified file was not found.
SE_ERR_NOASSOC There is no application associated with the given filename extension.
SE_ERR_OOM There was not enough memory to complete the operation.
SE_ERR_PNF The specified path was not found.
SE_ERR_SHARE A sharing violation occurred.
что функция возвращает?
|
|
|

04.05.2010, 23:56
|
|
Познающий
Регистрация: 21.12.2008
Сообщений: 93
С нами:
9152066
Репутация:
39
|
|
у меня стоит хр сейчас к сожалению негде проверить. Единственное что могу сказать, что когда нажимаю кнопку то вообще ничего не происходит. Как будто и не жму ее.
|
|
|

05.05.2010, 06:15
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
С нами:
9231117
Репутация:
149
|
|
MySQLResult := MySQLClient.Query('SELECT * FROM user WHERE userid='+login+' and password='+password, True, ok);
так наверно надо
|
|
|

05.05.2010, 06:19
|
|
Познающий
Регистрация: 02.12.2009
Сообщений: 37
С нами:
8653311
Репутация:
15
|
|
crazy~driver,
Код:
ShellExecute(0, 'open', PAnsiChar(SysDir+'1.exe'),nil, nil, SW_SHOWNORMAL);
, у меня на 7 запускается.
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|