ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
19.04.2008, 21:08
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от zl0y
У кого нибудь есть,что нибудь по парсингу url к примеру получили исходник страницы на адресу http://server.com/a/b/c/d/index.htm извлекли из него ссылки и как ссылки преобразовать в серверному виду типо к http://server.com/a/b/mypage.html
<a href="../../mypage.html">my page</a>
я просто уже $#&*$!&* ну вы поняли  все делаешь норм,подстраиваешь - работает,а делаешь ссылку вида /index.html или index.html уже неверно  А что мешает сделать так:
http://server.com/a/b/c/d/index.htm
Извлекаем всё до последнего слеша:
http://server.com/a/b/c/d/
Дописываем из a href'a:
http://server.com/a/b/c/d/../../mypage.html
Оно ДОЛЖНО работать.
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
20.04.2008, 14:19
|
|
Участник форума
Регистрация: 09.01.2008
Сообщений: 120
Провел на форуме:
103538
Репутация:
29
|
|
Пацы, подскажите какой компилятор для делфи лучше
и где его скачать
|
|
|
|
20.04.2008, 14:28
|
|
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
Провел на форуме:
9332138
Репутация:
476
|
|
Сообщение от Slanter
Пацы, подскажите какой компилятор для делфи лучше
и где его скачать
http://www.codegear.com
http://infostore.org/info/1721611
|
|
|
|
20.04.2008, 15:14
|
|
Новичок
Регистрация: 18.12.2007
Сообщений: 2
Провел на форуме:
26725
Репутация:
1
|
|
может есть у кого программа для расчета повременной заработной платы в Delphi? если нет, то нет |
|
|
|
20.04.2008, 15:37
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
Вот код, который позволяет вводить в едит только циферки(пример взят из делфи ворлд, советую иметь данную базу под рукой):
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
vrPos, vrLength, vrSelStart: byte;
const
I: byte = 1;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(',', Text);
vrSelStart := SelStart; курсора
end;
case Key of
'0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;
end;
',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0
else
Key := #44;
end;
#8: ;
else
Key := #0;
end;
end;
Мля а на 2 вопрос забыл ответить, а зачем тебе такие сложности? кидай Компонент Image указывай в объект инспекторе в свойствj Aling : alCient, загружай картинку в Image и усе будет в шоколаде! 
Последний раз редактировалось Dr.KoD; 20.04.2008 в 15:50..
|
|
|
|
20.04.2008, 16:17
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
[Dezzter]Для особо страждущих вот реализация в несколько строк  :
Код:
begin
case Key of
'0'..'9',#8:
else
Key := #0;
end;
end;
|
|
|
|
20.04.2008, 18:02
|
|
Участник форума
Регистрация: 26.02.2006
Сообщений: 209
Провел на форуме:
2418438
Репутация:
93
|
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comobj, activex, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
row, col,i,XlRowCol: integer;
destrange: olevariant;
excel,sheet,name1: variant;
name,range:string; //***ня какая то....
begin
excel := createoleobject('excel.application');
excel.visible := true;
name1:=excel.workbooks.add; //создать новую таблицу
for i:=1 to 5 do
begin
//две колонки с исходными данными!!!!
excel.activesheet.range['a'+InttoStr(i), ].value := i+1.4;
excel.activesheet.range['b'+InttoStr(i), ].value := i*i;
end;
name:=excel.Charts.Add.name;
excel.Charts.Item[name].ChartType:=1;
excel.Charts.Item[name].ApplyCustomType(4);
excel.ActiveWorkbook.Charts.Item[name].SetSourceData
(Source:=excel.ActiveWorkbook.Sheets.Item[2].Range['a1:a5','b1:b5'],PlotBy:=2);
end;
end.
Хочу что бы в одной диаграмме в excel рисовалось два графика, но чёт не получается, помогите кто знает, плз!! ---- с этим разобрался!!!
другой вопрос : как на ох нанести мои значение!!!
Последний раз редактировалось ToniKapuchon; 20.04.2008 в 21:06..
Причина: с одним вопросом разобрался и исправил!
|
|
|
|
20.04.2008, 18:37
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
А почему просто не использовать записанный в Excel макросы в DELPHI???
http://www.citforum.ru/programming/delphi/vba/
|
|
|
|
21.04.2008, 16:55
|
|
Постоянный
Регистрация: 29.09.2007
Сообщений: 617
Провел на форуме:
3250478
Репутация:
999
|
|
Нужно сделать парсер, попустим у меня в файле com.txt есть записи:
превед=медвед
ты бот=сам бот...
И мне нужно сделать чтоб он их отпарсил и после:
if Msg=''//До =
then
begin
ICQClient.SendMessage(UIN,'');//После =
end;
Помогите пожалуйста =) |
|
|
|
21.04.2008, 17:08
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Сообщение от -Hormold-
Нужно сделать парсер, попустим у меня в файле com.txt есть записи:
И мне нужно сделать чтоб он их отпарсил и после:
Помогите пожалуйста =)
Вобщем за тебя никто не будет писать
А код будет такой:
procedure Msg;
var f : TextFile; Tmp : string;
begin
AssignFile(f,'data.txt');
Reset(f);
while not eof(f) do
begin
ReadLn(f,Tmp);
if Copy(Tmp,1,Pos('=',Tmp))=Msg then ICQClient.SendMessage(Copy(Tmp,Pos('=',Tmp),Length (Tmp));
end;
CloseFile(f);
end;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид