21.12.2008, 02:01
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
С нами:
10096166
Репутация:
120
|
|
А подскажитека код, чтобы при нажатию на кнопку делался скрин рабочего стала и сохранялся дапустим в C:\
|
|
|
21.12.2008, 03:25
|
|
Познающий
Регистрация: 22.03.2008
Сообщений: 63
С нами:
9546362
Репутация:
65
|
|
Сообщение от xaker-boss
А подскажитека код, чтобы при нажатию на кнопку делался скрин рабочего стала и сохранялся дапустим в C:\
Ну вот так например можно:
Код:
#include <atlimage.h>
#include <Gdiplusimaging.h>
//...
CBitmap bitmap;
bitmap.CreateBitmap(width, height, 1, 32, rgbData);
CImage image;
image.Attach(bitmap);
image.Save(_T("C:\\test.bmp"), Gdiplus::ImageFormatBMP);
И вот статейка интересная screenshot в буффер переноситься, но можно и сразу в файл статья
|
|
|
|
21.12.2008, 02:03
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами:
10892546
Репутация:
2274
|
|
showmessage(StrReplace(pole.Text,' ',''));
выводит 1 000 всёравно =\
А, strreplace Это из гугла функция, а Replace нету 
[Error] Unit2.pas(127): Undeclared identifier: 'Replace'
showmessage(IntToStr(ord(str.Text[2])));
160
Щас попробую chr(160) заменить на ''
Мы пабедиле!!11 
Пробел кстате это 32
Всё, всё отлично отправляется в скрипт
Гугол
Код:
Chr(160) - это неразрывный пробел. Т.е. отображается как пробел, но переносить по нему слова нельзя.
Мне кажеться или это 
Код:
[01:05:22] <v01d> свойство
[01:05:28] <v01d> для updown
[01:05:32] <v01d> thousand
[01:05:34] <v01d> тысячи
[01:05:38] <v01d> и поставь false
ВСЁ МЛЯ! Никаких пробелов! ёпрст!!!11 
Последний раз редактировалось Ponchik; 21.12.2008 в 03:07..
|
|
|
|
21.12.2008, 16:05
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Я новичек в делфи, так что просьба не пинать =) В общем пишу я icq бота при помощи модуля TICQClient от Царя. В общем вот процедура реагирующая на прием сообщений
Код:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
icq: cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg); //Добавляем полученное сообщение в Memo1
if Msg='/Disconnect' then ICQClient1.Disconnect;
if Msg='help' then ICQClient1.SendMessage(icq,'Команды: "22"-расписание')
end;
Вот примерно такое, но я хочу реализовать там расписание пар и как сделать так чтобы например я со своего icq отправил сообщение типа %%Социология ОАП ВМ
и он распознавал что стоит после знаков %% и прикручивал этот текст к команде "22".
Тоесть любой желающий пишет боту 22 а он выдает:
Социология ОАП ВМ.
Думаю я ясно обьяснил. Жду вашей помощи |
|
|
|
21.12.2008, 16:46
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
искать %%
копировать от %% до %% в 22
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
21.12.2008, 16:56
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
а как искать, нпишите плиз процедурку, а то я уже столько фуромув и ФАКов перерыл и так и не нашел =((
|
|
|
|
21.12.2008, 17:11
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Сообщение от Maxxxtri23
а как искать, нпишите плиз процедурку, а то я уже столько фуромув и ФАКов перерыл и так и не нашел =((
искать подстроку в строке командами pos и posex
|
|
|
|
21.12.2008, 17:47
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Сообщение от crystalbit
искать подстроку в строке командами pos и posex
Напиши плиз пример, буду оч благодарен
|
|
|
|
21.12.2008, 17:27
|
|
Участник форума
Регистрация: 22.05.2008
Сообщений: 158
С нами:
9459019
Репутация:
348
|
|
кто знает как прочитать строки 2х TEdit..?
Последний раз редактировалось ..::TROYAN::..; 21.12.2008 в 17:35..
|
|
|
|
21.12.2008, 22:57
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Сообщение от ..::TROYAN::..
кто знает как прочитать строки 2х TEdit..?
как я понял из переписки в ПМ, надо получить handle элементов типа TEdit
для этого есть функция GetWindow и функция GetClassName
для начала нужно иметь handle первого (любого) TEdit, пусть это будет h (integer)
теперь
Код:
h:=GetWindow(h,GW_HWNDFIRST);
вернет первый компонент на этом уровне(на том же parent'e)
это не обязательно TEdit, проверяем функцией GetClassName
и далее
Код:
h:=GetWindow(h,GW_HWNDFIRST);
repeat
//работа с h
h:=GetWindow(h,GW_HWNDNEXT);
until h=0;
мы перебрали все компоненты, остается проверять класс, получать заголовок и всё остальное, что требуется, после repeat (где комментарий)
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
