ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
07.05.2007, 15:52
|
|
Leaders of Antichat - Level 4
Регистрация: 26.11.2006
Сообщений: 237
Провел на форуме:
13395217
Репутация:
2097
|
|
Добавляет запись в файл
Код:
var
SL: TStringList;
begin
Sl:=TStringList.Create;
if FileExists('myfile.txt') then SL.LoadFromFile('myfile.txt');
SL.Add('Text');
SL.SaveToFile('myfile.txt');
SL.Free;
end;
Чтобы сделать поиск, нужно просто загружать весь файл в
переменую
Код:
SL.LoadFromFile('myfile.txt');
и потом проверять наличие нужного тебе номера в каждой строчке
Код:
if SL.Strings[nomerstroki]='Text' then...;
|
|
|
07.05.2007, 17:10
|
|
Флудер
Регистрация: 20.11.2006
Сообщений: 3,316
Провел на форуме:
16641028
Репутация:
2371
|
|
Код:
if SL.Strings[nomerstroki]='Text' then...;
Не понятно......как я узнаю номер строки??
Ищем текст Text в файле...что за номер строки?  |
|
|
|
07.05.2007, 17:23
|
|
Leaders of Antichat - Level 4
Регистрация: 26.11.2006
Сообщений: 237
Провел на форуме:
13395217
Репутация:
2097
|
|
Код:
var
i:integer
begin
for i:=0 to Sl.Count-1 do
if Sl.Strings[i] = 'Text' then ...
|
|
|
|
07.05.2007, 18:17
|
|
Флудер
Регистрация: 20.11.2006
Сообщений: 3,316
Провел на форуме:
16641028
Репутация:
2371
|
|
Спс...
Теперь проблема с иконкой...
пытаюсь поставить иконку на прогу.....вроде ставлю, она высвечивается в заголовке программы., а сам значок проги не делается  |
|
|
|
07.05.2007, 18:20
|
|
Leaders of Antichat - Level 4
Регистрация: 26.11.2006
Сообщений: 237
Провел на форуме:
13395217
Репутация:
2097
|
|
"Projects -> Options -> Application" и там жми Load Icon...
|
|
|
|
07.05.2007, 23:29
|
|
Флудер
Регистрация: 20.11.2006
Сообщений: 3,316
Провел на форуме:
16641028
Репутация:
2371
|
|
Super Puper вопрос:
Вообщем надо сделать так:
Есть файл uins.ini такого формата
Код:
3252436;passwr
236347;264sdg34
Nак вот.....надо как-то сделать так, чтобы номер до точки с запятой был переменной UIN, а после переменная PASSWORD |
|
|
|
07.05.2007, 23:38
|
|
Leaders of Antichat - Level 4
Регистрация: 26.11.2006
Сообщений: 237
Провел на форуме:
13395217
Репутация:
2097
|
|
Код:
UIN:= copy(SL.Strings[i],0,pos(';',SL.Strings[i])-1);
Pas:= copy(SL.Strings[i],pos(';',SL.Strings[i])+1,32);
|
|
|
|
08.05.2007, 08:28
|
|
Флудер
Регистрация: 20.11.2006
Сообщений: 3,316
Провел на форуме:
16641028
Репутация:
2371
|
|
Сделал проще:
Код:
var
ss:Tstrings;
begin
ss:=TStringList.Create;
ss.LoadFromFile('uins.txt');
ss.NameValueSeparator:=';';
ICQClient1.UIN := StrToInt(ss.Names[1]);
ICQClient1.Password := ss.ValueFromIndex[1];
|
|
|
|
08.05.2007, 13:56
|
|
Постоянный
Регистрация: 10.10.2006
Сообщений: 316
Провел на форуме:
1572471
Репутация:
152
|
|
Как проверить что:
1. интернет включен
2. Что данные не были заблочены FireWall'ом и успешно отправлены.
|
|
|
|
08.05.2007, 14:22
|
|
Участник форума
Регистрация: 14.03.2005
Сообщений: 267
Провел на форуме:
2827464
Репутация:
545
|
|
1.
Сообщение от wininet.h
BOOL WINAPI InternetGetConnectedState( OUT LPDWORD lpdwFlags, IN DWORD dwReserved);
// Flags for InternetGetConnectedState
#define INTERNET_CONNECTION_MODEM 1
#define INTERNET_CONNECTION_LAN 2
#define INTERNET_CONNECTION_PROXY 4
#define INTERNET_CONNECTION_MODEM_BUSY 8
Код:
#include <wininet.h>
...
DWORD dwFlags;
InternetGetConnectedState( &dwFlags, 0 );
if (dwFlags && INTERNET_CONNECTION_MODEM) printf( "модем подключен\n" );
if (dwFlags && INTERNET_CONNECTION_LAN) printf( "lan подключен\n" );
2.
Хех, если коннект к удаленному серверу прошел успешно, значит фаервол не заблочил данные)
Код:
if (connect( s, (struct sockaddr_in*)s_addr, sizeof( s_addr ) ) == SOCKET_ERROR)
printf( "заблочил)\n" ); else printf( "не заблочил)\n" );
чмок)
Последний раз редактировалось De-visible; 28.04.2008 в 00:51..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
