ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
03.05.2009, 19:16
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от Flame of Soul
если на Дельфи, то вкладка Dialog -> добавляешь на форму OpenDialog
открываешь в свойствах Filter у OpenDialog и там 2 колонки, так вот в первую пишешь что хочешь, а во вторую маску файлов.
Потом обработчик:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;
Все работате, но теперь как перехватить путь и имя файла и закинуть это в эдит1 (например: выбрали мы фаил и он записался в эдит1 в таком виде: c:\папка\папка\еще одна папка\фаил.txt
|
|
|
03.05.2009, 19:32
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;
полный путь храниться в переменной s
Можете сделать так:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName;
end;
|
|
|
|
03.05.2009, 19:37
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
НTL вроде так
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then
begin
edit1.text:=OpenDialog1.FileName;
end;
end;
Flame of Soul опередил   |
|
|
|
03.05.2009, 20:57
|
|
Новичок
Регистрация: 30.04.2009
Сообщений: 1
Провел на форуме:
11950
Репутация:
0
|
|
Уважаемые дельфисты! Подправьте пож-та код....
Жутко грузит систему
Код:
procedure TForm1.StartuemClick(Sender: TObject);
var
k: longint;
H: HWND;
begin
StringGrid2.RowCount:=StringGrid2.RowCount+1;
k:=StringGrid2.RowCount-3;
for k := 0 to StringGrid1.RowCount - 1 do
if k<>0 then
begin
ShellExecute(Handle,'open',pchar(StringGrid1.Cells [1,k]),nil,nil,SW_SHOWNORMAL);
sleep(5000);
H := FindWindow('IEFrame', nil);
SendMessage(H, WM_SYSCOMMAND, SC_CLOSE, 0);
end;
end;
|
|
|
|
03.05.2009, 21:02
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
Уважаемые дельфисты! Подправьте пож-та код....
Жутко грузит систему
sleep(5000); - это плохо, очень плёхо))) используйте таймер и счетчик тогда уж.))
и также вставьте в тело цикла:
PHP код:
if k<>0 then
begin
.....
.....
Application.ProcessMessages;
end;
Application.ProcessMessages; - дайте поработать системе.
Последний раз редактировалось Flame of Soul; 03.05.2009 в 21:42..
|
|
|
|
03.05.2009, 21:26
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
ICQClient1.SendMessage(Ася,'Масага');
Как можно вместо масаги отправить содержимое txt файла?
|
|
|
|
03.05.2009, 21:41
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
Сообщение от НTL
Как можно вместо масаги отправить содержимое txt файла?
PHP код:
function GTFF(AF: string; var RS: string): Boolean;
var
FS: TFileStream;
begin
Result := False;
if not FileExists(AF) then Exit;
FS:=TFileStream.Create(AF, fmOpenRead);
try if FS.Size <> 0 then begin
SetLength(RS,FS.Size);
FS.Read(RS[1], FS.Size);
Result := True;
end; finally FS.Free; end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if GTFF('c:\ALCxxx-06.log', s) then
ICQClient1.SendMessage(Ася,s);
end;
|
|
|
|
03.05.2009, 22:04
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
function GTFF(AF: string; var RS: string): Boolean;
var
FS: TFileStream;
begin
Result := False;
if not FileExists(AF) then Exit;
FS:=TFileStream.Create(AF, fmOpenRead);
try if FS.Size <> 0 then begin
SetLength(RS,FS.Size);
FS.Read(RS[1], FS.Size);
Result := True;
end; finally FS.Free; end;
end;
Как и куда это кидать?
|
|
|
|
03.05.2009, 22:15
|
|
Познавший АНТИЧАТ
Регистрация: 07.05.2006
Сообщений: 1,031
Провел на форуме:
5885100
Репутация:
773
|
|
на мой вопрос никто не знает ответа? ))
|
|
|
|
03.05.2009, 22:27
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
на мой вопрос никто не знает ответа? ))
а с какого компонента или какой файл какого формата выводится на печать? или просто текст и координаты?
это функция поставь ее сразу после
PHP код:
implementation
{$R *.dfm}
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид