ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
   
 
 
Опции темы Поиск в этой теме Опции просмотра

  #5781  
Старый 16.03.2010, 20:30
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию

Как TStringList перевести в String с разделителем #13#10?
 

  #5782  
Старый 16.03.2010, 21:27
GhostOnline
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081

Репутация: 84
По умолчанию

если имеем такие строки:
StringList.Add('1');
StringList.Add('12');
StringList.Add('123');
то свойство StringList.Text будет равно '1#13#1012#13#10123#13#10'
а свойство StringList.CommaText '1,12,123'
 

  #5783  
Старый 16.03.2010, 23:16
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084

Репутация: 79
Отправить сообщение для fenixelite с помощью ICQ
По умолчанию

Подкиньте парочку ссылкой, про стэк и кучу, пожалуйста.
 

  #5784  
Старый 17.03.2010, 07:34
s0l_ir0n
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785

Репутация: 314
Отправить сообщение для s0l_ir0n с помощью ICQ
По умолчанию

Цитата:
Сообщение от fenixelite  
Подкиньте парочку ссылкой, про стэк и кучу, пожалуйста.
http://www.delphisources.ru/pages/faq/base/manage_segment_data_size.html
http://forum.sources.ru/index.php?showtopic=280746
http://www.xakep.ru/magazine/xa/114/050/1.asp
http://articles.org.ru/cn/showdetail.php?cid=7342
http://delphi.about.com/od/objectpascalide/l/aa103003a.htm
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10354858.html
 

  #5785  
Старый 17.03.2010, 13:17
XIII
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903

Репутация: 15
Отправить сообщение для XIII с помощью ICQ
По умолчанию

хочу добавить в базу данные
SQLConnection1.Connected:=true;
SimpleDataSet1.DataSet.CommandText:='INSERT INTO users ("id","name","fname","email","pass") values ("","'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Tex t+'","'+Edit4.Text+'")';
SimpleDataSet1.DataSet.Active:=true;
SimpleDataSet1.Active:=true;

что не правельно?

Последний раз редактировалось XIII; 17.03.2010 в 16:08..
 

  #5786  
Старый 17.03.2010, 20:31
zer0ska
Участник форума
Регистрация: 05.12.2007
Сообщений: 113
Провел на форуме:
252598

Репутация: 34
Wink

Уважаемые мемберы может ктонибудь показать на примере как скачать и выполнить файл использую для скачивания только winsocks ??
у меня что то не выходит =((
Код:
  WSAStartup(makeword(1,1),info);
  sHwnd:=Socket(AF_INET, SOCK_STREAM, 0);
  sin.sin_family:=AF_INET;
  sin.sin_port:=htons(dport);
  sin.sin_addr.S_addr:=inet_addr(dhost);
  connect(sHwnd, sin, sizeof(sin));

  sbuff1 := '';
  sbuff1 := 'GET ' + dpath + '? HTTP/1.1'+ #13#10 +
    'Host: ' + dhost + #13#10#13#10;


    CopyMemory(@sBuff,pchar(sBuff1),length(sBuff1));
    send(sHwnd, sBuff, Length(sBuff), 0);
    recv(sHwnd, rBuff, Length(rBuff), 0);
    fileText := copy(rBuff, pos(#13#10#13#10, rBuff)+4, length(rBuff)-pos(#13#10#13#10, rBuff));
    SaveFile(SavePath, fileText);
 

  #5787  
Старый 17.03.2010, 21:02
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

Репутация: 229
По умолчанию

zer0ska, вот слушай, когда сервер тебе отвечает он тебе посылает свои хеддеры в которых указан размер данных (в символах)(Content-Length), вот его считываешь и потом постепенно принимаешь символы от сервера (т.е. ответ от сервера)(while цикл тебе поможет)
Это все не сложно делается!
 

  #5788  
Старый 17.03.2010, 21:19
zer0ska
Участник форума
Регистрация: 05.12.2007
Сообщений: 113
Провел на форуме:
252598

Репутация: 34
Unhappy

Цитата:
Сообщение от wolmer  
zer0ska, вот слушай, когда сервер тебе отвечает он тебе посылает свои хеддеры в которых указан размер данных (в символах)(Content-Length), вот его считываешь и потом постепенно принимаешь символы от сервера (т.е. ответ от сервера)(while цикл тебе поможет)
Это все не сложно делается!
это я понел но реализовать чстно говоря не знаю как =)
с while for знаком но не выходит что то =((
 

  #5789  
Старый 17.03.2010, 21:27
MaTpOc
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449

Репутация: 1357


По умолчанию

Помогите написать программу подсчета количества элементов, попадающих между номером минимального элемента и максимального элемента в массиве из 30 чисел.
 

  #5790  
Старый 17.03.2010, 21:44
[stranger]
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028

Репутация: 28
Отправить сообщение для [stranger] с помощью ICQ
По умолчанию

Цитата:
Сообщение от MaTpOc  
Помогите написать программу подсчета количества элементов, попадающих между номером минимального элемента и максимального элемента в массиве из 30 чисел.
отнимай одно от другого по модулю..
 
 





Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ