ANTICHAT
Страница 2 из 677 < 1 2 3 4 5 6 1252102502 > Последняя »
Показывать 40 сообщений этой темы на одной странице

ANTICHAT (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [Delphi]/[Pascal] Задай вопрос, получи ответ (https://forum.antichat.xyz/showthread.php?t=39636)

l-l00K 07.05.2007 15:52
Добавляет запись в файл
Код:
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...;

Isis 07.05.2007 17:10
Код:
if SL.Strings[nomerstroki]='Text' then...;
Не понятно......как я узнаю номер строки??
Ищем текст Text в файле...что за номер строки?:)

l-l00K 07.05.2007 17:23
Код:
var
 i:integer
begin
 for i:=0 to Sl.Count-1 do
 if Sl.Strings[i] = 'Text' then ...

Isis 07.05.2007 18:17
Спс...
Теперь проблема с иконкой...
пытаюсь поставить иконку на прогу.....вроде ставлю, она высвечивается в заголовке программы., а сам значок проги не делается :(

l-l00K 07.05.2007 18:20
"Projects -> Options -> Application" и там жми Load Icon...

Isis 07.05.2007 23:29
Super Puper вопрос:
Вообщем надо сделать так:
Есть файл uins.ini такого формата
Код:
3252436;passwr
236347;264sdg34
Nак вот.....надо как-то сделать так, чтобы номер до точки с запятой был переменной UIN, а после переменная PASSWORD

l-l00K 07.05.2007 23:38
Код:
UIN:= copy(SL.Strings[i],0,pos(';',SL.Strings[i])-1);
Pas:= copy(SL.Strings[i],pos(';',SL.Strings[i])+1,32);

Isis 08.05.2007 08:28
Сделал проще:
Код:
var
ss:Tstrings;
begin
      ss:=TStringList.Create;
ss.LoadFromFile('uins.txt');
ss.NameValueSeparator:=';';
ICQClient1.UIN := StrToInt(ss.Names[1]);
ICQClient1.Password := ss.ValueFromIndex[1];

Ci5 08.05.2007 13:56
Как проверить что:
1. интернет включен
2. Что данные не были заблочены FireWall'ом и успешно отправлены.

inSa(Ne)rd 08.05.2007 14:22
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" );
чмок)


Время: 09:41
Страница 2 из 677 < 1 2 3 4 5 6 1252102502 > Последняя »
Показывать 40 сообщений этой темы на одной странице