Вверх ↑
Этот топик читают: Гость
Ответов: 1061
Рейтинг: 22
#106: 2013-04-05 18:37:42 ЛС | профиль | цитата
nesco писал(а):
Ну-ну.

Что не так? )

Tad писал(а):
Вот блин, а у нас компилятор Delphi без подписи и сертификата.

Компилятор запускается только на момент компиляции! )) И он будет уже не нужен! )
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#107: 2013-04-05 18:40:27 ЛС | профиль | цитата
RinniX писал(а):
Что не так?

Да так, ничего -- мысли вслух
карма: 22

0
Ответов: 1061
Рейтинг: 22
#108: 2013-04-11 18:50:35 ЛС | профиль | цитата
Возможно-ли стандартными Jabber компонентами сделать конференцию?
------------ Дoбавленo в 18.50:
Значит нет! ((

Спецы Delphi помогите с компиляцией исходников клиента jabber!

Пишет следующее
[Предупреждение] Jabber.pas(314): Combining signed and unsigned types - widened both operands
[Ошибка] Jabber.pas(324): Undeclared identifier: 'UTF8ToString'
[Ошибка] Jabber.pas(653): Undeclared identifier: 'HashStringAsHex'
[Ошибка] Jabber.pas(780): Undeclared identifier: 'TBytes'
[Ошибка] Jabber.pas(807): Undeclared identifier: 'HashStringAsHex'
[Ошибка] Jabber.pas(824): Undeclared identifier: 'HashString'
[Ошибка] Jabber.pas(839): Undeclared identifier: 'HashStreamAsHex'
[Ошибка] Jabber.pas(841): Undeclared identifier: 'HashStringAsHex'
[Ошибка] Jabber.pas(845): Undeclared identifier: 'HashStringAsHex'
[Совет] Jabber.pas(72): Private symbol '_OnGetBookMarks' declared but never used
[Совет] Jabber.pas(83): Private symbol 'SendAuth_1' declared but never used
[Совет] Jabber.pas(86): Private symbol 'SaveMsg' declared but never used
[Фатальная ошибка] uMain.pas(7): Could not compile used unit 'Jabber.pas'

Взял от сюда: Опенсорс проект

карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#109: 2013-04-12 01:29:40 ЛС | профиль | цитата
RinniX писал(а):
помогите с компиляцией исходников клиента

А чем не устраивают штатные компоненты Jabber
------------ Дoбавленo в 01.29:
Вот схемка от foksov-a с компонентами Jabber, может чем-то поможет в освоении

Add(MainForm,2953706,84,154)
{
Width=974
Height=306
}
Add(JB_Base,12286635,210,273)
{
Name="MyJabb"
link(JID,15762073:Text,[])
link(Password,11810352:Text,[(237,261)(272,261)])
}
Add(JB_XMLConsole,2330620,112,378)
{
Jabber="MyJabb"
link(onSend,7746350:doCharset,[])
link(onReceive,14083219:doCharset,[(163,391)(163,447)])
}
Add(JB_RosterList,1626834,301,273)
{
Jabber="MyJabb"
link(onContact,7273328:doStr,[])
}
Add(Edit,15762073,224,217)
{
Left=10
Top=5
Width=95
Text=""
}
Add(Edit,11810352,266,217)
{
Left=115
Top=5
Width=110
Text=""
Password=0
}
Add(Button,13153236,91,273)
{
Left=45
Top=45
Width=135
Caption="Connect"
link(onClick,3779589:doIPByHost,[(150,279)(150,286)])
}
Add(Memo,7154211,259,378)
{
Left=580
Top=85
Width=180
Height=175
ScrollBars=2
}
Add(Host,3779589,161,273)
{
link(onIPByHost,12286635:doConnect,[(202,286)(202,279)])
link(HostName,15944763:Value,[])
}
Add(Memory,15944763,168,217)
{
Default=String(jabber.ru)
}
Add(Charset,7746350,182,378)
{
Type=7
link(onCharset,7154211:doAdd,[])
}
Add(ListBox,13521406,448,273)
{
Left=5
Top=85
Width=85
Height=180
DataType=1
link(onClick,5567239:doText2,[(499,286)(499,356)])
}
Add(Label,9374561,315,154)
{
Left=250
Top=10
Height=50
Caption="JID

Msg"
AutoSize=1
}
Add(Charset,4258371,448,392)
{
Type=6
link(onCharset,16301665:doSend,[])
link(Text,15468099:Text,[])
}
Add(Edit,15468099,448,343)
{
Left=300
Top=35
Width=455
Text=""
link(onEnter,4258371:doCharset,[(486,356)(486,331)(436,331)(436,398)])
}
Add(JB_Messages,16301665,511,392)
{
Jabber="MyJabb"
link(onSend,13522072:doWork2,[])
link(onReceive,12985066:doString,[])
link(JID,5567239:Text,[])
}
Add(Edit,5567239,511,343)
{
Left=300
Top=10
Width=455
Text=""
}
Add(ListBox,4134509,672,392)
{
Left=105
Top=85
Width=465
Height=180
}
Add(Charset,6532158,623,392)
{
Type=7
link(onCharset,4134509:doAdd,[])
}
Add(HubEx,13522072,602,392)
{
link(onEvent,6532158:doCharset,[])
}
Add(FormatStr,12985066,560,399)
{
Mask="[%1] %2"
link(onFString,13522072:doWork3,[(606,405)])
}
Add(MT_String,7273328,350,273)
{
link(onResult,2774367:doSplit,[])
}
Add(MultiStrData,2774367,399,273)
{
From=1
Count=1
link(onPart1,13521406:doAdd,[])
}
Add(Memo,1019964,259,441)
{
Left=770
Top=85
Width=185
Height=175
ScrollBars=2
}
Add(Charset,14083219,182,441)
{
Type=7
link(onCharset,1019964:doAdd,[])
}
Add(Label,14780018,315,196)
{
Left=635
Top=65
Width=255
Caption="Туда Сюда"
AutoSize=1
}


А вот топик, где об этом написано -- http://forum.d2h.ru/forum.html?q=3&p=214566#p214566

Но я этим не занимался, оно мне как-то и не надо совсем
карма: 22

0
Ответов: 1061
Рейтинг: 22
#110: 2013-04-12 10:18:03 ЛС | профиль | цитата
nesco писал(а):
А чем не устраивают штатные компоненты Jabber

RinniX писал(а):
Возможно-ли стандартными Jabber компонентами сделать конференцию?

Да/Нет? ))

карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#111: 2013-04-12 11:02:01 ЛС | профиль | цитата
RinniX писал(а):
Да/Нет? ))

Я без понятия, уже писал об этом. Да и заниматься кодами делфей для Jabber-a должен тот, кто работает с Jabber-ом, я не работаю, по-этому не возьмусь за портирование, говорю сразу
карма: 22

0
Ответов: 1061
Рейтинг: 22
#112: 2013-04-26 22:41:02 ЛС | профиль | цитата
Сайт/веб-страница может-ли использовать/имеет-ли доступ через JavaScript/VBScript /к WMI? (WMI - Windows Management Instrumentation)
карма: 0

0
Ответов: 1061
Рейтинг: 22
#113: 2013-07-03 19:13:56 ЛС | профиль | цитата
Помогите разобраться с потоками. Как в StrListе сохранить данные в поток?

code_31402.txt
карма: 0

0
файлы: 1code_31402.txt [191B] [421]
Разработчик
Ответов: 26061
Рейтинг: 2120
#114: 2013-07-03 19:22:35 ЛС | профиль | цитата
RinniX писал(а):
Как в StrListе сохранить данные в поток?


Add(MainForm,2953706,126,126)
{
}
Add(StrList,14292582,259,140)
{
FileName="123"
Strings=#3:123|3:133|
Point(doSaveToStream)
Point(Stream)
link(Stream,12477872:Stream,[])
}
Add(Button,11043093,126,175)
{
Left=50
Top=55
link(onClick,4467391:doEvent1,[])
}
Add(Hub,4467391,175,175)
{
link(onEvent1,12477872:doClear,[(200,181)(200,97)])
link(onEvent2,14292582:doSaveToStream,[])
}
Add(MemoryStream,12477872,273,84)
{
}


карма: 22

1
Голосовали:RinniX
Ответов: 1061
Рейтинг: 22
#115: 2013-07-03 19:33:16 ЛС | профиль | цитата
nesco, я вот никак не пойму эти потоки! )) Почему поток берется с верхних точек, а не с нижних? Везде всё берётся с нижних точек, а тут наоборот, с верхних переходит в нижние! )
------------ Дoбавленo в 19.33:
кажется начинаю догонять! ))
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#116: 2013-07-03 19:33:54 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 09:47:15
карма: 0

0
Ответов: 1061
Рейтинг: 22
#117: 2013-07-04 23:03:33 ЛС | профиль | цитата
г. ость, спасибо, полегчало и наконец догнал! )) Это оказывается кажется, что, берётся поток из верхних точек. Для потока нужен идентификатор, который берётся с нижней точки МемориСтрим в верхнюю СтрЛист! УРА!
------------ Дoбавленo в 23.39:
Почему после разделителя StrPart, StrList хранит список в одной строке, а Memo разделяет и хранит список как надо! Довольно долго думал в чём проблема, пока индексы не посмотрел! )) Эти компоненты хоть и очень похожи (StrList и Memo), но похоже, что их делали разные люди! ))

Add(StrList,3618369,217,161)
{
FileName="111"
Strings=#1:1|1:2|1:3|1:4|2:/5|1:6|1:7|1:8|1:9|
}
Add(Button,11010896,126,238)
{
Left=20
Top=45
Caption="11111"
link(onClick,12481534:doEvent1,[])
}
Add(StrPart,10997097,217,238)
{
Char="/"
link(onSplit,9719958:doAdd,[])
link(onPart,2129698:doAdd,[])
link(Str,3618369:Text,[])
}
Add(StrList,2129698,266,245)
{
}
Add(StrList,9719958,315,238)
{
}
Add(Hub,12481534,175,238)
{
OutCount=3
link(onEvent1,10997097:doSplit,[])
link(onEvent2,7795128:doAdd,[(227,251)(227,321)])
link(onEvent3,12269020:doAdd,[(252,258)(252,321)])
}
Add(Memo,7795128,266,315)
{
Left=90
Top=45
Width=85
Height=115
link(Str,2129698:Count,[(272,303)(279,303)])
}
Add(Memo,12269020,315,315)
{
Left=190
Top=45
Width=65
Height=115
link(Str,9719958:Text,[])
}
------------ Дoбавленo в 23.03:
nesco, можешь исправить? С меня пиво!
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#118: 2013-07-04 23:23:03 ЛС | профиль | цитата
RinniX писал(а):
можешь исправить?

Я вообще не понял -- в чем проблема Вот не понял, и все тут.
Почему ты взял в левое Memo инфу с точки Count, а не с точки Text, как в правое
карма: 22

0
Ответов: 1061
Рейтинг: 22
#119: 2013-07-04 23:39:30 ЛС | профиль | цитата
nesco писал(а):
Я вообще не понял -- в чем проблема

Посмотри на строки в StrList и Memo! StrList показывает одну строку, а Мемо, так как надо (хотя, нет, больше показывает)! )

code_31409.txt
карма: 0

0
файлы: 1code_31409.txt [923B] [426]
Ответов: 8886
Рейтинг: 823
#120: 2013-07-04 23:39:34 ЛС | профиль | цитата
nesco писал(а):
с точки Count
Он второпях ошибся
RinniX, может так надо?
code_31410.txt
карма: 19

0
файлы: 1code_31410.txt [1.1KB] [414]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)