ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.07.2009, 15:48
|
|
Новичок
Регистрация: 21.06.2009
Сообщений: 11
Провел на форуме:
29795
Репутация:
9
|
|
|
|
|
29.07.2009, 16:28
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Вопрос новичка:
Закинул я на форму объекты (Кнопки, мемо, этиты)
Теперь я хочу эти объекты закинуть в GroupBox1
Как это можно реализовать,
Создать новые объекты - не врянт...
|
|
|
|
29.07.2009, 16:31
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
HTL, выделяешь нужные компоненты, жмешь Ctrl + X, щелкаешь на GroupBox и Ctrl + V.
|
|
|
|
29.07.2009, 16:31
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
В Objekt TreeView выделяешь эти объекты и переносишь их на название GroupBox1.
|
|
|
|
29.07.2009, 17:29
|
|
Новичок
Регистрация: 21.06.2009
Сообщений: 11
Провел на форуме:
29795
Репутация:
9
|
|
PHP код:
<?
$ip=getenv("REMOTE_ADDR"); #айпишник компа с которого пришел отчет
$dirname = "logs/"; #папка куда будут складываться отчеты
if(!file_exists($dirname)){ #если нету паки, создаем
mkdir($dirname, 0777, true); #ставим права доступа
}
$name =$dirname.$_FILES['myfile']['name']; #составляем имя файла папка/время/[айпишник]/имя файла которое было на компе
$filegate=@$_FILES['myfile']['tmp_name']; #пока идет закачка дается временное имя
if (!empty($filegate))
{
move_uploaded_file($filegate,$name); #все складваем в лог папку
echo "okkk";
}
?>
Код:
procedure sendpost(host,pathscript,filename:string);
var
hOpenHandle, hConnectHandle, hResourceHandle: Pointer;
boundary:string;
header, data:string;
fhand: THandle;
fBuffer: pchar;
fhFileSize,BytesRead: dword;
bound:string;
namefile:string;
begin
fhand := CreateFile(pchar(filename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
fhFileSize:= GetFileSize(fhand,nil);
GetMem(fBuffer, fhFileSize);
ReadFile(fhand, fBuffer^, fhFileSize, BytesRead, nil);
closehandle(fhand);
bound:=
chr(65+random(25))+chr(97+random(25))+chr(48+random(9))
+chr(97+random(25))+chr(65+random(25))+chr(48+random(9))
+chr(97+random(25))+chr(97+random(25))+chr(48+random(9))
+chr(65+random(25))+chr(48+random(9))+chr(97+random(25))
+chr(65+random(25))+chr(48+random(9))+chr(97+random(25))
+chr(48+random(9))+chr(97+random(25))+chr(48+random(9))
+chr(65+random(25))+chr(97+random(25))+chr(65+random(25))+chr(97+random(25));
namefile:=extractfilename(filename);
hOpenHandle := InternetOpen(nil, 0, nil, nil, 0);
if hOpenHandle <> nil then
begin
hConnectHandle := InternetConnect(hOpenHandle, pchar(host), 80, nil, nil, 3, 0, 0);
if hConnectHandle <> nil then
begin
hResourceHandle := HttpOpenRequest(hConnectHandle, 'POST', pchar(pathscript), nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
if hResourceHandle <> nil then
begin
boundary := inttostr(random(65355))+inttostr(random(65355))+inttostr(random(65355));
header := 'Content-Type: multipart/form-data; boundary=----------'+bound;
data := '------------'+bound+#13#10+
'Content-Disposition: form-data; name="info"'#13#10#13#10+'dfgdfgdfgdfg'+#13#10+
'------------'+bound+#13#10+
'Content-Disposition: form-data; name="myfile"; filename="'+namefile+'"'#13#10+
'Content-Type: text/plain'#13#10#13#10+fBuffer+#13#10+
'------------'+bound+'--';
HttpSendRequest(hResourceHandle, @header[1], length(header), @data[1], length(data));
InternetCloseHandle(hResourceHandle);
end;
InternetCloseHandle(hConnectHandle);
end;
InternetCloseHandle(hOpenHandle);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute
then
sendpost('test.ru', '/test.php',opendialog1.FileName);
end;
|
|
|
|
29.07.2009, 18:45
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
чтото я не вкурил, это к чему код?
Склеен кое как из моего куска и еще чегото. Куча левых, неиспользуемых строк.
+ комменты для php файла чуть неправильны )
|
|
|
|
29.07.2009, 20:08
|
|
Новичок
Регистрация: 21.06.2009
Сообщений: 11
Провел на форуме:
29795
Репутация:
9
|
|
отправляет текстовый файл на сервак)) как бинарный кидать через вининет не разобрался... а php не обращай внимания, главное работает, принимает и ладно))...
|
|
|
|
29.07.2009, 20:52
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от ChuKeY
отправляет текстовый файл на сервак)) как бинарный кидать через вининет не разобрался... а php не обращай внимания, главное работает, принимает и ладно))...
Бинарные файлы надо перегонять через эту хуёвину:
Код:
procedure GetBuff(var Text: string; FileName: string);
var
F: File of Byte;
B: Byte;
begin
AssignFile(F, FileName);
Reset(F);
while not Eof(F) do
begin
Read(F, B);
Text := Text + chr(B);
end;
Close(F);
end;
А дальше в функции POST добавляешь:
в var: texet:string;
а в код:
GetBuff(texet, 'C:\lol.jpg');
ну и вместо memo1.text вставляешь texet
|
|
|
|
30.07.2009, 02:48
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184
Репутация:
106
|
|
|
|
|
|
30.07.2009, 03:13
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от Vlad3d
подскажите что за ошибки
Не найдены свойства компонент. Версии другие?
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
