Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

Rudia



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
delover
В общем мне даже ShareMem не нужен, т.к. передаю информацию только для чтения, проблема в том, что в 2007 делфи один и тот же 32битный адрес в памяти в библиотеке указывает совсем на другое место, чего по идее быть не должно.
У меня закрадывается сомнения, что делфи 2007 все-таки кривой ещё до безобразия

Всего записей: 324 | Зарегистр. 13-09-2006 | Отправлено: 19:23 06-02-2008
waik



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
xy

Цитата:
хмм.. что-то я не понимаю или вы понавыдумывали  
если вы хотите чтобы проект был целостен, то схемa check in/out просто неизбежна и так работают все известные мне СVS, ну а меточки ридонли - приятное дополнение, не позволяющее попортить файл, который не у нас

 
Вы действительно не правильно меня поняли. Я говорю про рабочую схему, а их известно минимум три. Одна применяет блокировка/редактирование/разблокировку, другая (применяемая в StarTeam например) - редактирование/слияние изменений/ помещение в хранилище. Третья нечто смешанное. Если интересно, то опишу отдельно. В делфи схема с блокировкой кажется не удачной. Хотя бы потому что редактор форм постоянно пытается изменять свойства (Top, Left например) при работе с проектом. Даже если именно в неё никаких изменений вносить не предпологалось. И соотвественно вываливаются постоянные сообщения о попытке сохранить unit в ридонли файле.
 
Слияние гораздо приятнее, хотя может и чуть более трудоёмкая схема. Получаем из хранилища файл, правим как хотим - пытаемся сохранить в хранилище. В случае если файл уже изменился - сливаем две версии в одну и сохраняем.  
 
Выполнение check in/out не является рабочей схемой, это просто действия в любой CVS и работающие по любой схеме.
 

Всего записей: 610 | Зарегистр. 15-01-2003 | Отправлено: 22:03 06-02-2008 | Исправлено: waik, 22:07 06-02-2008
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ребята, знаю, что вопрос не совсем для этого топика, но новый начинать не хочется (да и запрещено), а топик по Delphi2007 закрыт на неопределённый срок.. ;-(((
 
вопрос следующий:
есть 25242 RAD Studio 2007 Help Update 1 CHM files - English 55 МБ и этот долбучий сайт на codegear защищает этот файл так, будто он на вес золота... да ладно бы по уму сделали - а так, через хитрые кукизы, авторизацию и file-attachment...  
короче. Три или четыре попытки скачать - обрывались в разные моменты. докачки нет ;-(
может быть, у кого-то есть эти файлы справки (именно Update 1 - от 16.11.2007) - и может быть есть возможность выложить это на любой нормальный хостинг с докачкой (например, на rapidshare.com) ?? Буду очень-очень благодарен!
тысячу извинений за оффтоп...

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 00:04 07-02-2008
xy



ХУдератор
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
waik
в делфи слияние дфмов зачастую неподъемная задача.. поэтому схема слияния по моему опыту доставит значительно больше хлопот
 
тут скорее и надежнее "пофиксить" делфи, чтоб оно не пыталось постоянно что-нить в дфмы записать ;)

----------
Счастливые мысли приводят к счастливой клеточной биохимии

Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 00:11 07-02-2008 | Исправлено: xy, 01:19 07-02-2008
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SERGE_BLIZNUK
После закрытия топика по 2007 обсуждение сюда переехало  http://forum.ru-board.com/topic.cgi?forum=35&topic=28572 [?]

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 07:58 07-02-2008
anfilat

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
infosa
Строчка
if ( (1<<i) &  Poses) {}
на дельфи будет  
if ((1 shl i) and poses) <> 0 then  
И в последней строке лишний пробел добавляется
 
xy

Цитата:
в делфи слияние дфмов зачастую неподъемная задача

Почему? Обычный текст, дифится без проблем. Да и дфмки настолько редко меняются, что отдельно на них заморачиваться не стоит

Всего записей: 845 | Зарегистр. 12-08-2005 | Отправлено: 10:29 07-02-2008
infosa



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Э-э... Проблема оказалась не в этом.
 
А строка  
if ( (1<<i) & Poses) {}  
как раз правильно переведена, как if (1 shl i)=poses then ...
В С++ оператор "&" отвечает же за побитовое сравнение, а в делфи аналогов нет.
 
Проблема была в цикле. Надо было не repeat, a while.
 
 while i<k do
    begin
      if ((1 shl i)=poses) then ...
      inc(i)
    end;
И все работает.

Всего записей: 3 | Зарегистр. 06-07-2007 | Отправлено: 11:40 07-02-2008
anfilat

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
infosa

Цитата:
А строка  
if ( (1<<i) & Poses) {}  
как раз правильно переведена, как if (1 shl i)=poses then ...  
 

Не, неправильно. Poses это битовая маска, и сишное условие выполняется для каждого установленного бита. А твой дельфи-перевод сработает только если в Poses установлен только один бит. Если больше одного, то условие никогда не выполнится.

Цитата:
 
В С++ оператор "&" отвечает же за побитовое сравнение, а в делфи аналогов нет.

Дельфийский AND при сравнении чисел работает как сишный &, а при сравнении булеанов как сишный &&. Так что аналогов есть

Всего записей: 845 | Зарегистр. 12-08-2005 | Отправлено: 12:48 07-02-2008
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
infosa

Цитата:
В С++ оператор "&" отвечает же за побитовое сравнение, а в делфи аналогов нет.  

а как же "and"
Упс, опередили

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 12:55 07-02-2008 | Исправлено: greenpc, 12:58 07-02-2008
infosa



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
anfilat, спасибо за объяснение! Действительно аналоги есть!
 

Всего записей: 3 | Зарегистр. 06-07-2007 | Отправлено: 13:48 07-02-2008
kirillkr



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
У кого есть опыт работы такой связки:
Firebird (unicode_fss)
FIB Plus
Delphi 7
 
?
 
Интересует такой вопрос, сколько придеться проходить напильником, чтобы приложение работало в режиме unicode? Какие-то компоненты понадобятся или можно обойтись стандартными? Что  для этого надо будет сделать? Что порекомендуете прочитать по этой теме?

----------
http://www.kraeg.ru

Всего записей: 538 | Зарегистр. 08-03-2006 | Отправлено: 22:13 07-02-2008
me1nik



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Парни помогите скомпилировать файл, срочно надо достал исходники.
Уж, очень надо скоро на работу приезжает проверка. А эта программа очень нужна мне, т.к. эта проверка придет с флэшкой на которой нужные данные лежат, которые могут пригодится мне и моему руководству. На своем Delphi 7 enterprise пробовал ничего не получилось, не хватает классов. Программа готова к компилированию единственное там нужно одну строчку подправить "trayMain.Active := False" где False изменить на True. Это мне нужно для того чтобы программа при запуске запускалась и сразу спускалась в трэй. Если сможете помочь буду очень благодарен.
_http://ifolder.ru/5299391 размер 10 кб.

Всего записей: 83 | Зарегистр. 07-12-2007 | Отправлено: 16:34 10-02-2008
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
me1nik
Быстро просмотрел, вроде кроме джедайских контролов там ничего нет - http://jvcl.sourceforge.net/ Но компилить не пробовал.

Всего записей: 2322 | Зарегистр. 24-05-2007 | Отправлено: 00:29 11-02-2008
Yeeshik

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
me1nik
 _http://ifolder.ru/5307737
Иконка в трее есть, только прозрачная. Чтобы запускалась и сразу спускалась в трэй нужно запускать с параметром --hide.

Всего записей: 185 | Зарегистр. 02-11-2006 | Отправлено: 09:46 11-02-2008
me1nik



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Yeeshik
Огромное спасибо, ты сделал даже еще лучше чем я и предполагал. Срытая иконка нет ничего лучше , огромный респект.  
Чтобы программу из трея вывести нужно держать зажатым shift и кликнуть мышкой, круто!
Вот мой .ini у http://ifolder.ru/5308291 чтоб прога работала!
Yeeshik 5+

Всего записей: 83 | Зарегистр. 07-12-2007 | Отправлено: 10:41 11-02-2008 | Исправлено: me1nik, 10:49 11-02-2008
Rus007

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У кого нибудь есть код программы шифрования, написанный на delphi?

Всего записей: 11 | Зарегистр. 28-01-2008 | Отправлено: 15:31 11-02-2008
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Rus007
Что значит "программа шифрования" - надо написать реализацию какого-нибудь алгоритма шифрования или уже конечный "продукт", шифрующий данные, например, с помощью CryptAPI?

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 20:51 11-02-2008
aqwapaq

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть код программы которая посылает POST запрос на сервер.
Проблема в том, что для отправки нужно нажать на кнопку формы, когда нужен файл который выполнит эту функцию автоматически и закроется.
Т.е требуется максимально автоматизировать процесс.
(Не нужны формы, кнопки и прочий GUI)
Заранее спасибо!
 
 
Вот код:
 

Код:
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCustomTransparentProxy, IdSocks, IdHTTP, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
    response :TStringList;
    POSTData: TStringList;
 
implementation
 
{$R *.dfm}
   
procedure TForm2.Button1Click(Sender: TObject);
begin
POSTData := TStringList.create;
POSTData.add('modem_log_st_poe=&hang_up_st_poe=Disconnect&message=');
IdHTTP1.Post('http://192.168.0.1/Status.htm/st_poe.cgi' ,POSTData);
end;
 
end.
 

 
Добавлено:
Привет всем!
Есть код который создает форму и кнопку. В обработчике кнопки стоит процедура посылки post запроса на сервер (вид процедуры- не суть).
Что выполняется при запуске файла:
1. Создается форма (с кнопкой)
2. Ожидается нажатие на кнопке или закрытие программы
 
Что надо:
1. После запуска файла немедленно выполнить процедуру
2. Ожидать завершения процедуры
3. Выход
 
PS. программа не должна создавать форму и другие GUI элементы
(т.е взаимодействие с пользователем не нужно)
 
Вот код:
 

Код:
 
   1. unit Unit2;  
   2.    
   3. interface  
   4.    
   5. uses  
   6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
   7.   Dialogs, IdCustomTransparentProxy, IdSocks, IdHTTP, IdBaseComponent,  
   8.   IdComponent, IdTCPConnection, IdTCPClient, StdCtrls;  
   9.    
  10. type  
  11.   TForm2 = class(TForm)  
  12.     Button1: TButton;  
  13.     IdHTTP1: TIdHTTP;  
  14.     procedure Button1Click(Sender: TObject);  
  15.    
  16.   private  
  17.     { Private declarations }  
  18.   public  
  19.     { Public declarations }  
  20.   end;  
  21.    
  22. var  
  23.   Form2: TForm2;  
  24.     response :TStringList;  
  25.     POSTData: TStringList;  
  26.    
  27. implementation  
  28.    
  29. {$R *.dfm}  
  30.      
  31. procedure TForm2.Button1Click(Sender: TObject);  
  32. begin  
  33. POSTData := TStringList.create;  
  34. POSTData.add('modem_log_st_poe=&hang_up_st_poe=Disconnect&message=');  
  35. IdHTTP1.Post('http://192.168.0.1/Status.htm/st_poe.cgi' ,POSTData);  
  36. end;  
  37.    
  38. end.  
 

Всего записей: 7 | Зарегистр. 02-02-2008 | Отправлено: 21:37 11-02-2008
Rus007

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RomanTim  
Методом перестановки по маршрутам Гамильтона. Помогите кто может срочно сдавать нужно.

Всего записей: 11 | Зарегистр. 28-01-2008 | Отправлено: 08:37 12-02-2008
shilder

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
aqwapaq
офигеть... а создать просто консольное приложение и скопировать обработчик события Click не дано ? :)

Всего записей: 20 | Зарегистр. 17-08-2003 | Отправлено: 09:55 12-02-2008
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru