ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
21.12.2008, 02:03
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
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, 03:25
|
|
Познающий
Регистрация: 22.03.2008
Сообщений: 63
Провел на форуме:
247838
Репутация:
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, 16:05
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
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
Провел на форуме:
1892597
Репутация:
836
|
|
искать %%
копировать от %% до %% в 22
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
21.12.2008, 16:56
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
а как искать, нпишите плиз процедурку, а то я уже столько фуромув и ФАКов перерыл и так и не нашел =((
|
|
|
|
21.12.2008, 17:11
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
Сообщение от Maxxxtri23
а как искать, нпишите плиз процедурку, а то я уже столько фуромув и ФАКов перерыл и так и не нашел =((
искать подстроку в строке командами pos и posex
|
|
|
|
21.12.2008, 17:27
|
|
Участник форума
Регистрация: 22.05.2008
Сообщений: 158
Провел на форуме:
2875309
Репутация:
348
|
|
кто знает как прочитать строки 2х TEdit..?
Последний раз редактировалось ..::TROYAN::..; 21.12.2008 в 17:35..
|
|
|
|
21.12.2008, 17:47
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Сообщение от crystalbit
искать подстроку в строке командами pos и posex
Напиши плиз пример, буду оч благодарен
|
|
|
|
21.12.2008, 18:02
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
если проверяешь в начале строки
Код:
if Pos('%%',msg)=1 then begin //позиция в строке
s:=copy(msg,3,MaxINT);//в переменной s теперь то, что после %% и до конца
//ни у дальше че те надо, вносит в TStringList и т.п.
end;
ну и есть еще много вариантов
а, ну чтоб смотреть соответствия, вносить туда, я юзал TStringList или массив record'ов, можно, что наверное и лучше, юзать бд
Последний раз редактировалось crystalbit; 21.12.2008 в 18:09..
|
|
|
|
21.12.2008, 22:57
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
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)
|
|
|
|
Линейный вид
