УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 420 из 677

420

Опции темы

Поиск в этой теме

Опции просмотра

#4191

23.08.2009, 23:07

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

Отправить сообщение для slesh с помощью ICQ

2 НTL ты хоть сам понял что сказал?

#4192

23.08.2009, 23:11

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Отправить сообщение для НTL с помощью ICQ

Цитата:

Сообщение от slesh

2 НTL ты хоть сам понял что сказал?

ммм...

В общем нужно по завершению потока удалить его...

#4193

23.08.2009, 23:46

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

вконце функции потока ставь ExitThread(0) типа

Код:

DWORD _stdcall ThreadProc(void * p)
{
............
 ExitThread(0);
 return 0;
}

Или на Delphi

Код:

function ThreadProc(p:pointer):DWORD; stdcall;
begin

.............
 ExitThread(0);
 result := 0;
end;

Последний раз редактировалось slesh; 24.08.2009 в 00:07..

#4194

24.08.2009, 00:04

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Цитата:

Сообщение от slesh

вконце функции потока ставь ExitThread(0) типа

Код:

DWORD ThreadProc(void * p)
{
............
 ExitThread(0);
 return 0;
}

Или на Delphi

Код:

function ThreadProc(p:pointer):DWORD;
begin

.............
 ExitThread(0);
 result := 0;
end;

Все равно выдает ошибку, если снова пытаться создать потоки

#4195

24.08.2009, 00:09

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

Может ты не правильно создаеш? или недоконца доходит функция завершения.
когда создаеш поток то не забывай закрывать дискриптор

#4196

24.08.2009, 00:37

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Цитата:

Сообщение от slesh

Вот:

Код:

procedure Getdata;
var
 len:integer;
 ret:string;
begin
form1.Memo2.Lines.Add(inttostr(random(111)));
ExitThread(0);
end;


procedure TForm1.Button8Click(Sender: TObject);
var
 thId:cardinal;
   i : Integer;
begin
For i := 1 to 100 do
begin
CreateThread(0,0,@Getdata,nil,0,thid);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 ws:TWSAData;
begin
 WsaStartup($202,ws);
 application.Title:='HTTP Sender';
end;

Это из HTTP Sender, но при попытки снова создать потоки получаем ошибку, я не думаю что здесь не доходит до: ExitThread(0);

#4197

24.08.2009, 01:07

2pick

Познающий

Регистрация: 17.03.2007

Сообщений: 98

Провел на форуме:
193152

Репутация: 45

Отправить сообщение для 2pick с помощью ICQ

Глюк при чтении файла... Текстовые файлы читает наура, а вот двоичные (картинки, архивы и т.п.) только первые 5-10 байт. Где косяк?

Код:

Function GetBuff(szFile: PChar): PChar;
Var
hFile, dwSize, dwBytes: DWORD;
Begin
Result:='';
hFile:=CreateFile(szFile, GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
If hFile<>INVALID_HANDLE_VALUE then
Begin
dwSize:=GetFileSize(hFile, nil);
Result:=VirtualAlloc(nil, dwSize, MEM_COMMIT, PAGE_READWRITE);
ReadFile(hFile, Result^, dwSize, dwBytes, nil);
End;
CloseHandle(hFile);
End;

#4198

24.08.2009, 01:26

S[N]EP

Познающий

Регистрация: 29.08.2008

Сообщений: 86

Провел на форуме:
789539

Репутация: 53

Здраствуйте...хелп плз мне нужно через делфи заполнить форму... http://217.197.113.50/titan/index.php капчу вывести в программу и через Тедит....
вот то что я делаю

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject); //тут я отправляю данные

var

  Http  : TidHttp;

  CM    : TidCookieManager;

  Data  : TStringList;

  Strpage :string;

  UserID,  UserName  :  String;

  i : integer;

begin

  try

    Http := TIdHTTP.Create(Self);

    Data := TStringList.Create;

    CM := TidCookieManager.Create(Http);

    Http.AllowCookies := true;

    Http.CookieManager := CM;

    Http.HandleRedirects := true;



    Http.Request.Host:='217.197.113.50';

    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';

    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';

    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';

    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';

    Http.Request.Referer:='http://217.197.113.50/titan/';



    Data.Add('char='+Edit1.Text);

    Data.Add('keystring='+Edit2.Text);

    StrPage := Http.Post('http://217.197.113.50/titan/index.php', Data);

  finally

    Data.Free;

    CM.Free;

    Http.Free;

  end;

 Showmessage(StrPage);

end;

procedure TForm1.Button2Click(Sender: TObject); //тут я получаю картинку капчи

begin

Form1.WebBrowser1.Navigate('http://217.197.113.50/titan/titcaptha/index.php');

end;

когда всё ввожу получаю ответ 'Ошибка: Неверно введен код с картинки.'

Последний раз редактировалось S[N]EP; 24.08.2009 в 01:32..

#4199

24.08.2009, 01:34

2pick

Познающий

Регистрация: 17.03.2007

Сообщений: 98

Провел на форуме:
193152

Репутация: 45

Чтоб картинку получить - нужно наверное какие-то параметры передавать (из кукисов или еще откуда-то)?

Имхо - дай нормальную ссылку на форму, а не айпи... очень похоже что сплойт тестишь

#4200

24.08.2009, 01:35

S[N]EP

Познающий

Регистрация: 29.08.2008

Сообщений: 86

Провел на форуме:
789539

Репутация: 53

всмысле дай норм ссылку - это и есть ссылка!
это не сплойт) это для того чтобы бонусы с ла2топа получать
http://217.197.113.50/titan/index.php - форма получения бонуса