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

16.02.2009, 02:20
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме: 521298
Репутация:
20
|
|
Подскажиет пожалуйста, как можно вывести значения нескольких переменных типа string в memo, причем значения пеерменных должны отображаться столбиком.
Например a:=1 b:=3 c:=5
В поле мемо выглядит как
1
3
5
|
|
|

16.02.2009, 02:41
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме: 2715445
Репутация:
588
|
|
Код:
var
ss,s1,s2,s3 : string;
begin
s1 := '1';
s2 := '2';
s3 := '3';
ss := s1 + #13#10 + s2 + #13#10 + s3;
memo1.Lines.Add(ss);
.... или
memo1.Lines.Add(s1);
memo1.Lines.Add(s2);
memo1.Lines.Add(s3);
|
|
|

16.02.2009, 18:51
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме: 521298
Репутация:
20
|
|
Спасибо.
|
|
|

17.02.2009, 17:00
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 46
Провел на форуме: 123070
Репутация:
9
|
|
всем доброго времени суток у меня такой тяжёленький вопрос надеюсь поможете обрыл всё что мог на делфикинге не помогают. В общем написал прогу по отправке письма , но я хочу её модифицировать и сделать отправку с подменой адреса как это осуществить?
|
|
|

17.02.2009, 17:30
|
|
Участник форума
Регистрация: 07.08.2007
Сообщений: 136
Провел на форуме: 2010588
Репутация:
653
|
|
Стукните ко мне в аську той кто розбираеться в делфи !
|
|
|

18.02.2009, 22:18
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме: 422909
Репутация:
200
|
|
Сообщение от Stil Free
всем доброго времени суток у меня такой тяжёленький вопрос надеюсь поможете обрыл всё что мог на делфикинге не помогают. В общем написал прогу по отправке письма , но я хочу её модифицировать и сделать отправку с подменой адреса как это осуществить?
Нужен хостинг с php и sendmail . На сколько я знаю, бесплатно таких трудно найти, а если найти то работают они на 50%. Поэтому юзается платный хостинг. То есть закидываешь скрипт на этот хост и через него посылаешь сообщения анонимно. Все попытки отредактировать MIME ну и так далее к нужному результату не приведут 
|
|
|

19.02.2009, 01:47
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме: 5749763
Репутация:
1680
|
|
Помогите решить проблемму кому не в лом, есть процедура отправки файлов с компа на сервер.
Код:
// Отправляем файл гейту
procedure TForm1.postdownload;
var
d:TIdMultiPartFormDataStream;
begin
d:=TIdMultiPartFormDataStream.Create;
d.AddFile('userfile',Edit1.text,'file');
try
IdHTTP1.Post('http://gate.ru/lol.php'+'?',d);
except
IdHTTP1.Disconnect;
end;
end;
Вот собственно полный код отправки файла на сервер, проблемма кроется в том, что после 2-3 переданных файлов на сервер, вся программа как бы виснет и не функционирует, всё окончательно сводится на этот кусок кода, есть ли возможность исправить ошибку чтобы программа не висла ?
|
|
|

19.02.2009, 01:52
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме: 4037638
Репутация:
1821
|
|
Сообщение от Nightmarе
Помогите решить проблемму кому не в лом, есть процедура отправки файлов с компа на сервер.
Код:
// Отправляем файл гейту
procedure TForm1.postdownload;
var
d:TIdMultiPartFormDataStream;
begin
d:=TIdMultiPartFormDataStream.Create;
d.AddFile('userfile',Edit1.text,'file');
try
IdHTTP1.Post('http://gate.ru/lol.php'+'?',d);
except
IdHTTP1.Disconnect;
end;
end;
Вот собственно полный код отправки файла на сервер, проблемма кроется в том, что после 2-3 переданных файлов на сервер, вся программа как бы виснет и не функционирует, всё окончательно сводится на этот кусок кода, есть ли возможность исправить ошибку чтобы программа не висла ?
Код:
http:TidHTTP;
Begin
http:=TidHTTP.create(nil);
....
....
http.Free;
End;
Хм...Так?
|
|
|

19.02.2009, 02:34
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме: 5749763
Репутация:
1680
|
|
De-visible ещё раз спасибо, твой вариант подошёл лучше остальных.
|
|
|

19.02.2009, 15:58
|
|
Участник форума
Регистрация: 19.08.2005
Сообщений: 132
Провел на форуме: 1387194
Репутация:
121
|
|
Нужно написть что-то наподобии графического редактора. Посоветуйте у кого был опыт какой компонент лучше всего использовать для этого? Пока из мыслей только Image, на нём рисовать, но думаю дальше паинта не уйду. Желатьельно чтобы можно было делать слои и поддерживалась прозрачность.
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|