Тем что первая из WinAPI, вторая из системного модуля делфи, вызывать лучще вторую, т.к. она переводит менеджер памяти в мультипоточный режим + устанавливает флаг IsMultiThread в true(час собсна и переводит менеджер памяти в мультипоточный режим) и соответственно через свой врапер поток выполняет для отслеживания остановки потоков.
Всем привет.Народ, подскажите как вычислить размерность матрицы записанной в файл на паскале.В принципе алгоритм у меня есть, на С++ посимвольно считываем содержимое файла и проверяем этот символ равен "\n" или " ".Тока как обозначается "\n" на паскале я хз, подскажите плиз(файл текстовый). Code: ifstream in("C:\\123.txt"); char i[128]; int a = 0 ,b = 0; while (true){ in.read(i, 1); if (i[0] == ' ')++b; if (i[0] == '\n'){ ++a; ++b; } if (in.eof()){ ++a; ++b; break; } } b = b/a; а - строки, b - столбцы
#13 вроде бы. Можно еще while not eoln(fileVar) - чтение пока не конец строки и while not eof(fileVar) пока не конец файла
Code: procedure TNewThread.Execute; var data : TStringList; begin str:=form1.idhttp1.get('http://site.ru'); EVENTTARGET:=(ParserBlock(Str, '("','",')); VIEWSTATE:=(ParserBlock(Str, 'VIEWSTATE" value="','" />')); data:=tstringlist.create; Data.Add('ctl00$ctl21$cms06838$ddlMsisdnCode='+form1.ComboBox1.Text+''); Data.Add('ctl00$ctl21$cms06838$tbUserName='+form1.edit1.Text+''); Data.Add('__EVENTTARGET='+EVENTTARGET+''); Data.Add('__VIEWSTATE='+VIEWSTATE+''); Data.Add('ctl00$ctl21$cms06838$ddlCity=044'); Data.Add('ctl00$ctl21$cms06838$ddlRegion=9'); Data.Add('ctl00$ctl21$cms06838$gender=rbM'); form1.idhttp1.post('http://site.ru,data); data.free; end; программа с потоками не работает. вылетают ошибки и отправляется только get запрос. Если делать без потоков то все хорошо рабоатет и оптравляется только проблема в том что программа зависает. В чем может быть проблема в работе с потоками?
winlogon.exe str:=form1.idhttp1.get('http://site.ru'); почему тут стр? может дата? если не так постав комп IdCookieManager и в idttp -> CookieManager
Нельзя обращаться к компонентам формы из потока, и тем более использовать его методы 1. Вообще-то data у него это данные для пост запроса. 2. Data имеет тип TstringList, а Get возвращает string, то что ты ему сказал даже не скомпилится. Не считая способа Data.Text := , но это все равно бессмысленно
у меня наверно тупой вопрос, но я мало знаю Delphi, помогите, пожалуйста. надо нарисовать картинку не попиксельно, а запоминанием всех значений пикселей и дальнейшим "выбрасыванием" этого массива на форму. можно это сделать с tCanvas?
winlogon.exe, ну ты даешь... Тебе надо создавать IdHTTP в отдельном потоке и обращаться к нему со своего потока. А для работы с элементами формы тебе необходимо синхронизировать работу, или через критические секции... Стукни мне в icq 674542, объясню подробнее что да как, и почему этот код не работает. Целый день сижу без дела, мб хоть что-то полезное сделаю кому-то
Помогите разобрать задачи с помощью функций т.е ввод/вывод с помощью их (сессия на носу Z_x) Дана строка. Определить, сколько в ней символов *, ; , :. Code: var s:string; begin readln(s); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); while s[1]=' ' do delete(s,1,1); while s[length(s)]=' ' do delete(s,length(s),1); writeln(s) end. Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом). Code: var s: string; i,k,l,d: integer; b: boolean; begin writeln('vvedite stroku: '); readln(s); b:= true; d:= length(s); l:= d div 2; for i:=1 to l do if s[i]<>s[d+1-i] then b:=false; if b=true then writeln ('palindrom') else writeln('ne palindrom'); readln; end.
Добрый день, хочу написать программу в которую вводишь логин и пароль с форума,сообщение + ссылку на тему на форуме и она через определенное время флудит указанным сообщением. На каком языке писать, и реально ли это если опыта нет совсем.
Всем привет. Подскажите , как сделать ветвление по условию с TradioButton. Кинул я TradioButton на шаблон, а вот как в самом коде это прописать? Т.е. если TradioButton выбрана, то ,,,,,,,, иначе ,,,,,,,,,,,,
У нее есть свойство clicked или что-то типа такого. Так вот,на это свойство (как на клик мыши) вешаешь это ветвление. Делфю я уже не помню,так что копай сам
ну хотя бы рассказать че скачивать, я впринципе не знаю как мне можно помочь, скорее всего как ты и сказал написать
простите за смешной вопрос... Code: begin if RadioGroup1.ItemIndex=0 then t:='ВАся'; if RadioGroup1.ItemIndex=1 then t:='Петя'; if RadioGroup1.ItemIndex=2 then t:='САша' ; if RadioGroup1.ItemIndex=3 then t:='Коля' ; label1.Caption:=t; end; подскажите как это можно сокротить... выборка именнно по ItemIndex так как названия уних разные можно ли это запихнуть в процедуру чтоб не загромождать основной код