ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
13.05.2010, 14:32
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от stepashka_
Подскажите как сделать что бы текст из edit1 & edit2 при нажатии на кнопку дописывался в файл например http://blabla.ru/bla.txt
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S, S2 : String;
begin
AssignFile(F, 'bla.txt');
Append(F);
S := Edit1.Text;
S2 := Edit2.Text;
WriteLn(F,S+S2);
CloseFile(F);
end;
|
|
|
13.05.2010, 15:19
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Вопрос совсем не по делфи, но может знает кто.. Где можно взять звуки для программы?
Например: "Идёт соединение с сервером". И чтобы девушка с красивым голосом говорила :-) Самому записывать не предлагать.
Заранее всем спасибо)
|
|
|
|
13.05.2010, 15:27
|
|
Постоянный
Регистрация: 09.06.2005
Сообщений: 531
Провел на форуме:
3516666
Репутация:
439
|
|
http://www.findsounds.com/types.html
|
|
|
|
13.05.2010, 15:53
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Что-то ничего толкового там нет, тупо вопли, смех и прочее..
|
|
|
|
13.05.2010, 16:02
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
for i:=1 to d do html:=html+utf8toansi(Buffer2[i]);
memo1.Lines.Add(html);
until d<=0;
В чем ошибка ? Цикл не завершается..
|
|
|
|
13.05.2010, 20:41
|
|
Познающий
Регистрация: 25.10.2009
Сообщений: 97
Провел на форуме:
604635
Репутация:
15
|
|
В чем ошибка ? Цикл не завершается..
Соеднинение не разрывается. recv должны сама вылететь с 0 (как у тебя написано или с WSAENETRESET)
В заголовке отправляй Connection: close
|
|
|
|
15.05.2010, 19:30
|
|
Познающий
Регистрация: 14.08.2009
Сообщений: 51
Провел на форуме:
997316
Репутация:
123
|
|
Здравствуйте. Требуется помощь с установкой indy 10 на delphi 7
Хочу научиться создавать собственные, хоть и простые, фейки на delphi. Поиск указал мне статью, в которой описывается способ.
Но как видно для работы с интернетом нужна indy 10.
Пробовал сам установить, но никак не выходит, буду признателен за вашу помощь.
Если есть желание помочь, напишите в ПМ.
|
|
|
|
15.05.2010, 19:51
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Всем доброго времени суток! Не подскажите в чём трабл?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var tmp,tmp3:String;
begin
tmp3:='Profiles';
SRC:=TStringList.Create();
SRC.LoadFromFile(get(CSIDL_APPDATA)+'profiles.ini');
tmp:=SRC.Strings[6];
Delete(tmp,1,14);
fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+'\'+key3;
CopyFile(PChar(Full),PChar('C:\key3.db'),false);
end;
В переменную Full записывается полный путь до файла key3.db в папке с FireFox При попытке копировать его возникает ошибка.. Системе не удаётся найти указанный файл
Всё на 100 раз проверил.. Но так и не понял почему ошибка возникает.. Другие файлы копируются нормально.. Антивирусов нет..
Подскажите в чём трабл..
Последний раз редактировалось iGlass; 15.05.2010 в 19:53..
|
|
|
|
15.05.2010, 20:37
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от iGlass
Всем доброго времени суток! Не подскажите в чём трабл?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var tmp,tmp3:String;
begin
tmp3:='Profiles';
SRC:=TStringList.Create();
SRC.LoadFromFile(get(CSIDL_APPDATA)+'profiles.ini');
tmp:=SRC.Strings[6];
Delete(tmp,1,14);
fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+'\'+key3;
CopyFile(PChar(Full),PChar('C:\key3.db'),false);
end;
В переменную Full записывается полный путь до файла key3.db в папке с FireFox При попытке копировать его возникает ошибка.. Системе не удаётся найти указанный файл
Всё на 100 раз проверил.. Но так и не понял почему ошибка возникает.. Другие файлы копируются нормально.. Антивирусов нет..
Подскажите в чём трабл.. Может:
CopyFile(PChar(fullPath),PChar('C:\key3.db'),false );
т.к. я не вижу Full, но есть fullPathю
|
|
|
|
16.05.2010, 07:58
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
=) Эт я ошибся.. Но не из-за этого трабл.. всё равно не хочет копироваться..
Другие версии будут?)
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид