Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.308 RSS

←   Май 2004   →
					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

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

3.308 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi

Информационный Канал Subscribe.Ru

---

---

RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 337
от 28.05.2004, 08:30

Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва

О рассылке: Задано вопросов: 1568 Отправлено ответов: 3639 Активность: 232.0 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

sir henry Статус: Профессиональный Общий рейтинг: 162.23 [Подробней >>]	Pawel Статус: Профессиональный Общий рейтинг: 156.38 [Подробней >>]	Boriss Статус: Профессиональный Общий рейтинг: 162.94 URL: Программирование на Паскале [Подробней >>]
CrackLab Статус: Доверительный Общий рейтинг: 141.74 [Подробней >>]	Snowm@n Статус: Опытный Общий рейтинг: 111.13 [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 1552. В ответ на ответ Sir Henry по вопросу #1549 пишу следующее: ключ уникальности стоит - ясен перец, но... (ответов: 1)
Вопрос № 1553. У нас есть локальная сеть, протянутая по всему городу. Есть куча разных серверов. Как хттп, так и фт... (ответов: 2)
Вопрос № 1554. Привет! Есть функция, которой я определяю существование 20 URLов. Если URL найден, то тут же выдаетс... (ответов: 3)
Вопрос № 1555. Была написана программа на Дельфи6. Затем в результате отката ОС ХР были потеряны исходники к измене... (ответов: 5)
Вопрос № 1556. Добрый день! Подскажите, что я не так делаю: есть база Foxpro 2.0 Пробую ее с помощью DataPump пер... (ответов: 3)
Вопрос № 1557. Спасибо Sir Henry, but : в триггере не выполняется SET GENERATOR .. TO .. Версия Interbase 6.0 Как б... (ответов: 1)
Вопрос № 1558. Здравствуйте,ALL! Опять я со своим вопросом...за номером 1540 и похожим на мой 1547.Пример с базой i... (ответов: 1)
Вопрос № 1559. Здравствуйте ,эксперты .Может кто знает в каком файле лежат все зарезервированные слова в Delphi .Не... (ответов: 5)
Вопрос № 1560. Доброе время суток! Помогите мне в таком деле: 1. Требуется создать невизуальный компонент, который ... (ответов: 3)
Вопрос № 1561. Уважаемые эксперты пожалуйста помогите: Необходимо в СBuilder вывести на принтер PaintBox как это мо... (ответов: 2)
Вопрос № 1562. ================-------------------- Я бы запускал проверку либо скачивание указанной страницы в отд... (ответов: 1)

---

Вопросов: 11, ответов: 27

---

Вопрос № 1552

В ответ на ответ Sir Henry по вопросу #1549 пишу следующее:
ключ уникальности стоит - ясен перец, но ТОЛЬКО НА ПОЛЕ ID !!! Номер документа (официальный) идет с начала года с №1 и до 23:59,31 декабря след.года, далее он опять должен считаться с нуля, следовательно он не может быть уникальным. Моно, конечно, и при открытие проги проверяить на подобное и в случае чего SET GENERATOR .. TO 0, но хотелось бы с помощью триггера попробовать. Номера на документ прихода/расхода могут достигать до 8 номеров одновременно

---

Вопрос отправлен: 23.05.2004, 11:43
Отправитель: jiny (zhas-trz@tarazinfo.kz)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Приветствую Вас, jiny!
В таком случае, ясен перец :)), Вам в этот триггер нужно посылать текущую дату и дату обнуления генератора, и проверять уже в триггере, нужно обнулять ентот столбец с номером документа или не нужно.
//NowDate - текущая дата, EdgeDate - дата перевода стрелок :), например 31.12.2004_11:59:59
CREATE TRIGGER MyNewIDPlat(NowDate DATE, EdgeDate DATE)
....

IF (:NowDate > :EdgeDate) THEN
SET GENERATOR ... TO 0
...

Впрочем, не претендую на истину в последней инстанции, можно и еще какие-нибудь варианты сделать основываясь на том, что дату можно и в самом триггере проверить.

---

Ответ отправлен: 24.05.2004, 07:19
Отправитель: sir henry

---

Вопрос № 1553

У нас есть локальная сеть, протянутая по всему городу. Есть куча разных серверов. Как хттп, так и фтп. Есть инет-страница, которая показывает статистику этих серверов. Определяет она это состояние следующим образом: на каждом сервере (HTTP or FTP) есть файл y.gif. Так вот если его нет, то картинка в браузер не грузится, а если есть, то грузится ;) Таким образом юзеры видят состояние серверов в данный момент.
На Дельфи я хочу сделать тоже самое. Вернее почти уже сделал... но пока нашел функцию скачки файлов по HTTP. Но на 11 сервере она почему-то останавливается и ничего не пишет. Причем если 11ым поставить другой сервер, все происходит также :(
Может как-то можно по-другому проверить состояние FTP и HTTP ?
Вот исходник проекта:

Приложение:
====FORM1==== unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Wininet, StdCtrls, ExtCtrls, jpeg, Psock, NMHttp; type TForm1 = class(TForm) Image1: TImage; Image3: TImage; Label2: TLabel; Image2: TImage; Image4: TImage; img_on: TImage; img_off: TImage; Scroll: TScrollBox; Label1: TLabel; http: TNMHTTP; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image4Click(Sender: TObject); procedure ScrollClick(Sender: TObject); private { Private declarations } public procedure Load_Servers; procedure Show_All (list, ip: TStringList); { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} var servers: array[1..50] of string; ips: array[1..50] of string; function GetFile(const fileURL, FileName: string): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: file; sAppName: string; begin Result := False; sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); try hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0); try //AssignFile(f, FileName); //Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); //BlockWrite(f, Buffer, BufferLen); until BufferLen = 0; //CloseFile(f); Result := True; finally InternetCloseHandle(hURL); end; finally InternetCloseHandle(hSession); end; end; procedure TForm1.Show_All (list, ip: TStringList); var i: integer; _label: TLabel; _img: TImage; l: TStringList; _server, _ip: string; begin l := list; for i:=0 to l.count-1 do begin if (list.strings[i]<>'')and(ip.strings[i]<>'')then begin _server := l.strings[i]; _ip := ip.strings[i]; _label := TLabel.Create (Form1); with _label do begin Parent := Scroll; Transparent := true; Caption := _server; Font.Size := 7; Font.Name := 'Tahoma'; Font.Style := [fsBold]; Left:=20; Top:=Form1.Tag; end; _img := TImage.Create (nil); with _img do begin Parent := Scroll; Picture := img_on.Picture; AutoSize := true; try if (pos ('http://', _ip)<>0) and (_ip<>'') then begin if GetFile(_ip+'/y.gif', 'tmp.gif') = True then Picture := img_on.Picture else Picture := img_off.Picture; end; except end; Left := 5; Top:=Form1.Tag; end; Form1.Tag := Form1.Tag + 13; end; Label1.Caption := IntToStr(StrToInt(Label1.Caption)+1); Application.ProcessMessages; Application.ProcessMessages; Application.ProcessMessages; end; Form1.Tag := 50; end; procedure TForm1.Load_Servers; var Handle: Thandle; GetServers: function: TStringList; GetIP: function: TStringList; servers, ip: TStringList; begin handle:=LoadLibrary(pchar('Dataase.dll')); if handle<>0 then begin @GetServers:=GetProcAddress(handle,'GetServers'); @GetIP:=GetProcAddress(handle,'GetIP'); if (@GetServers<>nil)and(@GetIP<>nil) then begin servers := GetServers; ip := GetIP; Show_All (servers, ip); end; end; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; Form1.Perform(WM_SysCommand, SC_DragMove, 0); end; procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image4.Visible := True; Image2.Visible := False; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image2.Visible := True; Image4.Visible := False; end; procedure TForm1.Image4Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.ScrollClick(Sender: TObject); begin Load_Servers; end; end. ====BASE.DLL==== library Base; uses SysUtils, Classes; {$R *.RES} function GetServers: TStringList; var list1: TStringList; begin list1 := TStringList.Create; list1.Add ('Ìàêñèì'); list1.Add ('Adeptic FTP Archive'); list1.Add ('Êîìïàíèÿ Ozysoft'); list1.Add ('/dev/null'); list1.Add (')(àìÿ'); list1.Add ('Càéò Skariel'); list1.Add ('LLIAJIyH'); list1.Add ('Cåðâåð "Ïî÷èòàéêà"'); list1.Add ('Âèäåî ôèëüìû îò BOA'); list1.Add ('Ñåðâåð Beaver''a'); list1.Add ('Îêíî â ìèð Ìóëüòèìåäèè'); list1.Add ('Àðõèâ Âèäåî'); list1.Add ('$$SNOOPDOG$$'); list1.Add ('MAKC'); list1.Add ('Ïîðòàë Þìîðà è Ñìåõà'); list1.Add ('ÃÎÑÒÅËÅÐÀÄÈÎÔÎÍÄ'); list1.Add ('Alex FTP server'); list1.Add ('maDByte X-Project'); list1.Add ('Assorti'); list1.Add ('Lexus INFO PAGE'); list1.Add ('Svartalfheim'); list1.Add ('Jango FTP server'); GetServers := list1; end; function GetIP: TStringList; var list2: TStringList; begin list2 := TStringList.Create; list2.Add ('http://maksim.es.ozersk.ru'); list2.Add ('http://effiord.es.ozersk.ru'); list2.Add ('http://andreyka.es.ozersk.ru/other/hammer'); list2.Add ('ftp://pal.es.ozersk.ru'); list2.Add ('http://xameleon.es.ozersk.ru'); list2.Add ('http://artemn.es.ozersk.ru'); list2.Add ('http://antuan.es.ozersk.ru'); list2.Add ('http://juae.es.ozersk.ru'); list2.Add ('ftp://boa21.es.ozersk.ru/Video'); list2.Add ('http://beaver.es.ozersk.ru'); list2.Add ('ftp://okno.es.ozersk.ru'); list2.Add ('http://anatoli.es.ozersk.ru'); list2.Add ('http://snoopdog.es.ozersk.ru'); list2.Add ('http://10.100.9.37'); list2.Add ('http://nymph.es.ozersk.ru'); list2.Add ('http://flint.es.ozersk.ru'); list2.Add ('ftp://alex.es.ozersk.ru'); list2.Add ('http://10.100.65.17'); list2.Add ('ftp://10.100.7.27'); list2.Add ('http://lexus.es.ozersk.ru'); list2.Add ('http://10.100.1.27'); list2.Add ('ftp://10.100.65.16'); result := list2; end; exports GetServers, GetIP; begin end.

---

Вопрос отправлен: 23.05.2004, 16:07
Отправитель: maDByte
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Pawel

Добрый день, maDByte!
Посмотри в Королевстве Delphi

---

Ответ отправлен: 24.05.2004, 19:04
Отправитель: Pawel

---

Отвечает Boriss

Здравствуйте, maDByte!
Может использовать простое PING:
http://www.delphimaster.ru/articles/icmp.html (Реализация ping с помощью ICMP API)
Кроме того в Королевстве Delphi нашел то, что в приложении. Не проверял

Приложение:
unit NetUtils; interface uses Windows, Classes; function GetContainerList(ListRoot:PNetResource):TList; Type {$H+} PNetRes = ^TNetRes; TNetRes = Record dwScope : Integer; dwType : Integer; dwDisplayType : Integer; dwUsage : Integer; LocalName : String; RemoteName : String; Comment : String; Provider : String; End; {H-} implementation uses SysUtils; type PnetResourceArr = ^TNetResource; function GetContainerList(ListRoot:PNetResource):TList; {возвращает список сетевых имён с подуровня ListRoot, каждый элемент списка TList - это PNetRec, где поле RemoteName определяет соответственно сетевое имя элемента списка. Если ListRoot=nil, то возвращается самый верхний уровень типа: 1. Microsoft Windows Network 2. Novell Netware Network Чтобы получить список доменов сети Microsoft, нужно вызвать эту функцию второй раз, передав ей в качестве параметра, соответствующий элемент списка, полученного при первом её вызове. Чтобы получить список компьютеров домена - вызвать третий раз...} {Единственное, я не знаю как узнать имя текущего домена.} Var TempRec : PNetRes; Buf : Pointer; Count, BufSize, Res : DWORD; lphEnum : THandle; p : PNetResourceArr; i : SmallInt; NetworkList : TList; Begin NetworkList := TList.Create; Result:=nil; BufSize := 8192; GetMem(Buf, BufSize); Try Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER{0}, ListRoot,lphEnum); {в результате получаем ссылку lphEnum} If Res <> 0 Then Raise Exception(Res); Count := $FFFFFFFF; {требуем выдать столько записей в список, сколько есть} Res := WNetEnumResource(lphEnum, Count, Buf, BufSize); {в буфере Buf - списочек в виде массива указателей на структуры типа TNetResourceArr а в Count - число этих структур} If Res = ERROR_NO_MORE_ITEMS Then Exit; If (Res <> 0) Then Raise Exception(Res); P := PNetResourceArr(Buf); For I := 0 To Count - 1 Do Begin //Требуется копирование из буфера, так как он New(TempRec); //действителен только до следующего вызова функций группы WNet TempRec^.dwScope := P^.dwScope; TempRec^.dwType := P^.dwType ; TempRec^.dwDisplayType := P^.dwDisplayType ; TempRec^.dwUsage := P^.dwUsage ; TempRec^.LocalName := StrPas(P^.lpLocalName); {имеются ввиду вот эти указатели} TempRec^.RemoteName := StrPas(P^.lpRemoteName); {в смысле - строки PChar} TempRec^.Comment := StrPas(P^.lpComment); TempRec^.Provider := StrPas(P^.lpProvider); NetworkList.Add(TempRec); Inc(P); End; Res := WNetCloseEnum(lphEnum); {а следующий вызов - вот он!} If Res <> 0 Then Raise Exception(Res); Result:=NetWorkList; Finally FreeMem(Buf); End; End; end. Svyatoslav Ushakov 30-04-03 13:07 Плохой ответ... Вроде все работает, но когда в свойствах сети ставишь клиента для сетей Netware то при повторном опросе сети возникает критическая ошибка! Андрей Машков 10-12-03 19:39 Есть такой вот оригинальный способ: получить свой IP и удалить поледний октет - в итоге получишь маску Ip для т в о е й рабочей групы. Проверив все возможные 255 адресов на существование получиш те адреса, которые есть на 200%! Вот кусок, реализующий это: uses WINSOCK; function IPToHost( name : String; var erm : Word ) : String; var wd : WSAData; sin : sockaddr_in; he : pHostEnt; a : Pchar; rs : String; x : Integer; begin try erm := 0; WSAStartup(makeword(2, 0), wd); sin.sin_addr.S_addr := inet_addr(pchar(name)); he := gethostbyaddr(@sin.sin_addr.S_addr, 4, af_inet); if he = nil then begin erm := NU_E_INVALID_IP; exit; end; rs := STRPAS(he^.h_name); for x := 1 to length(rs) do if ord(rs[x]) >= 128 then rs[x] := chr(ord(rs[x]) + 64); result := rs; finally WSACleanup; end; end; function IpExists(ip : string) : Boolean; var ln : array [0 .. 254] of Char; wd : WSAData; ec : Word; begin WSAStartup(makeword(1, 1), wd); IPToHost(ip, ec); result := ec = 0; end; function HostToIp( name : String; var erm : Word ) : String; var wd : WSAData; hname : array [0 .. 254] of char; he : pHostEnt; a : Pchar; begin try erm := 0; WSAStartup(makeword(2, 0), wd); StrPCopy(hname, name); he := gethostbyname(hname); if he = nil then begin erm := NU_E_INVALID_HOST; exit; end; a := he^.h_addr^; result := format('%d.%d.%d.%d', [byte(a[0]), byte(a[1]), byte(a[2]), byte(a[3])]); finally WSACleanup; end; end; function GetLocalIp : String; var ln : array [0 .. 254] of Char; wd : WSAData; ec : Word; begin try WSAStartup(makeword(2, 0), wd); gethostname(ln, 255); result := HostToIp(strpas(ln), ec); finally WSACleanup; end; end; function GetLocalHost : String; var ln : array [0 .. 254] of Char; wd : WSAData; begin try WSAStartup(makeword(2, 0), wd); gethostname(ln, 255); result := strpas(ln); finally WSACleanup; end; procedure EnumAddresess; var x localip, maskip : String; begin localip := getlocalip; while localip[length(localip)] <> '.' do Delete(localip, length(localip), 1); maskip := localip; for x := 0 to 255 do if IpExists(maskip + IntToStr(x)) then {такой ip есть} end;

---

Ответ отправлен: 24.05.2004, 11:48
Отправитель: Boriss

---

Вопрос № 1554

Привет!
Есть функция, которой я определяю существование 20 URLов.
Если URL найден, то тут же выдается положительный ответ, но загвостка заключается в том, что если URL не нашелся, перед ответом 'Такого ресурса нет', программа думает целых 25 секунд... Может есть способ как увеличить скорость проверки существования URL?
Заранее благодарю!

Приложение:
function CheckUrl(url: string): boolean; var hSession, hfile, hRequest: hInternet; dwindex, dwcodelen: dword; dwcode: array [1..20] of char; res: pchar; begin Result := false; hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if assigned(hsession) then begin hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0); dwIndex := 0; dwCodeLen := 10; HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex); res := pchar(@dwcode); result := (res = '200') or (res = '302'); if assigned(hfile) then InternetCloseHandle(hfile); InternetCloseHandle(hsession); end; end;

---

Вопрос отправлен: 24.05.2004, 07:22
Отправитель: maDByte
[Следующий вопрос >>] [Список вопросов]

---

Отвечает CrackLab

Добрый день, maDByte!
Я бы запускал проверку либо скачивание указанной страницы в отдельном потоке, одновременно запускал бы таймер на 5 секунд например. При срабатывании таймера я бы проверял как там дела с проверкой ну или со скачиванием страницы (сколько байт страницы скачалось), и если дела плохо, то завершал бы поток и дальше уже выводил бы ответ -такого ресурса нет- или что угодно...

---

Ответ отправлен: 24.05.2004, 07:59
Отправитель: CrackLab

---

Отвечает Boriss

Здравствуйте, maDByte!
Пожалуй, совет CrackLab наиболее удачен. Так уж устроена сеть, что она пытается найти всегда. И это правильно, так как сервер может просто не успевает дать Вам положительный ответ

---

Ответ отправлен: 24.05.2004, 10:28
Отправитель: Boriss

---

Отвечает Pawel

Добрый день, maDByte!
Использовать таймер в отдельном потоке.

---

Ответ отправлен: 24.05.2004, 19:13
Отправитель: Pawel

---

Вопрос № 1555

Была написана программа на Дельфи6. Затем в результате отката ОС ХР были потеряны исходники к измененной версии программы. Осталось только откомпиллированный exe файл. Необходимо востановить исходные коды программы из этого exe файла. Возможно ли это, если возможно, то как? Нужен практический совет или хотя бы ссылки.

---

Вопрос отправлен: 24.05.2004, 09:43
Отправитель: Dfkthbq
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Доброе время суток, Dfkthbq!
Вряд ли получится что хорошее. То есть деассемблировать точно сможете, но разобраться в нем ... Проще заново написать. Слышал о программах, восстанавливающих код Паскаля, но даже и не пробовал.
Вот, например:
http://www.ems-hitech.com/sourcerescuer (кажется, платный)

---

Ответ отправлен: 24.05.2004, 10:18
Отправитель: Boriss

---

Отвечает CrackLab

Здравствуйте, Dfkthbq!
Исходный код дельфи восстановить не получится. Как уже ответили другие эксперты можно только засунуть файл в дизассемблер и получить дизассемблированный листинг и все. Но это вам ничем не поможет. В общем нужно писать заново.

---

Ответ отправлен: 24.05.2004, 14:18
Отправитель: CrackLab

---

Отвечает sir henry

Приветствую Вас, Dfkthbq!
Возможно, но только в исходный код ассемблера, потому-что ЛЮБАЯ программа, на чем бы она не была написана, преобразуется в машинный код. А аналог машинного кода - это только ассемблер.

---

Ответ отправлен: 24.05.2004, 11:05
Отправитель: sir henry

---

Отвечает Snowm@n

Добрый день, Dfkthbq!
Юзай DeDe (Delphi Decompiler) - авось поможет :)

---

Ответ отправлен: 26.05.2004, 09:58
Отправитель: Snowm@n

---

Отвечает Pawel

Добрый день, Dfkthbq!
Полностью нельзя.
Частично(формы, ресурсы и т.п.) с использованием DeDe.

---

Ответ отправлен: 24.05.2004, 19:16
Отправитель: Pawel

---

Вопрос № 1556

Добрый день!
Подскажите, что я не так делаю:
есть база Foxpro 2.0
Пробую ее с помощью DataPump
перегнать в *.db (Paradox)
не получается что-то с кодировкой,
хотя в Visual Foxpro открывается с
кодировкой 866 все нормально.
В BDE ставил самые разные драйвера Langdriver,
все равно на экране какая-то белиберда.

---

Вопрос отправлен: 24.05.2004, 10:25
Отправитель: Владимир
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Доброе время суток, Владимир!
Вопрос неточно сформулирован. Что значит "самые разные"? На моей машине имеется только один подходящий dBASE RUS cp866.
Не лучше ли решить проблему средствами FoxPro - сменить кодировку.
Или, нашел в справке:
Надо установить шрифт по умолчанию не Arial Cyr , а Fixedsys или System. Примерно так:
1.найти производителя в реестре
HKEY_CURRENT_USERSOFTWAREBORLANDDBD7.0PreferencesPropertiesSystemFont и
меняешь Arial Cyr на стандартные для Windows: Fixedsys или System (писать название шрифта с большой буквы).
2. И в стандартном драйвере BDE ,например DBASE, ставишь русский драйвер dBASE RUS cp866.
Открываешь BDE configurator(administrator) и в строке Drivers->Native->DBASE->Langdriver->ставишь dBASE RUS cp866.

---

Ответ отправлен: 24.05.2004, 16:15
Отправитель: Boriss

---

Отвечает sir henry

Доброе время суток, Владимир!
Скорее всего у Вас в *.db тоже получается 866-я кодировка. Попробуйте в VFP или написав соответствующую программу на дельфи, сначала конвертировать 866-ю кодировку в 1251, а потом уже перегонять в db.

---

Ответ отправлен: 24.05.2004, 11:09
Отправитель: sir henry

---

Отвечает Pawel

Приветствую Вас, Владимир!
Ну так и получаете в db тоже кодировку 866.
Нужно через FoxPro перекодить базу.

---

Ответ отправлен: 24.05.2004, 19:17
Отправитель: Pawel

---

Вопрос № 1557

Спасибо Sir Henry, but :
в триггере не выполняется SET GENERATOR .. TO ..
Версия Interbase 6.0
Как быть ?
И 2-ой вопрос :
пишу под Win98
хотелось бы XP-шный стиль, со вставкой XPmanifest ничего не меняется, перерыл инфу на эту тему, но так ничего не понял. Прошу доходчиво объяснить как это делается на практике.(поэтапно)

---

Вопрос отправлен: 24.05.2004, 13:19
Отправитель: jiny (zhas-trz@tarazinfo.kz)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Добрый день, jiny!
1. Да, действительно. Я честно говоря об этом не подумал :)).
Но не все так плохо как кажется :). Обнулить генератор можно так:
TEMPVAR = GEN_ID(NameOfGenerator, -GEN_ID(NameOfGenerator, 0);
т.е. сгенерировать значение с приращением на то же число, что уже есть в генераторе, но с обратным знаком. Немножко притянуто за уши, но работает :).
2. Не могу ничего сказать по этому поводу, т.к. не люблю украшательства в программах, но по-моему манифест работает только в XP, для остальных (W2K, например) нужно скачивать специальные библиотеки. Я этим вопросом не задавался, поэтому более подробно ничего сказать не могу.

---

Ответ отправлен: 25.05.2004, 09:13
Отправитель: sir henry

---

Вопрос № 1558

Здравствуйте,ALL!
Опять я со своим вопросом...за номером 1540 и похожим на мой 1547.Пример с базой interbaseпонятен, но есть и MSACCESS:)
Перепробовал 1001 комбинацию,и опять
прошу помочь, потомучто ничего не получилось.
Привожу пример кода- регистрации, который не работает.
И неможет работать...

Приложение:
var MyList: TStringList; begin MyList := TStringList.Create; try with MyList do begin Add('SERVER NAME=c:db1.mdb'); Add('USER NAME=ALEX'); end; Session1.AddAlias('MYAlias', 'Driver do Microsoft Access (*.mdb)', MyList); finally MyList.Free; end; end;

---

Вопрос отправлен: 24.05.2004, 16:45
Отправитель: Гена Васечкин
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Приветствую Вас, Гена Васечкин!
Не пользую Interbase, а ADO. Но вот что нашел в описании:
Так как для доступа к БД компонентам Interbase не требуется BDE, то для создания соединения используется всего одно свойство DatabaseName. Для создания соединия можно воспользоваться СТАНДРАТНЫМ ДИАЛОГОМ ВЫБОРА ФАЙЛА ПРИ ЩЕЛЧКЕ НА КНОПКЕ СВОЙСТВА В ИНСПЕКТОРЕ ОБЪЕКТОВ (TIBDabase). Компонент имеет собственнй редактор, позволяющий задавать значения свойств соединения.
Там же можно и протестировать соединение

---

Ответ отправлен: 27.05.2004, 16:29
Отправитель: Boriss

---

Вопрос № 1559

Здравствуйте ,эксперты .Может кто знает в каком файле лежат все зарезервированные слова в Delphi .Не хочеться лазить по модулям и в ручную вытаскивать их .Спасибо за ответ .

---

Вопрос отправлен: 24.05.2004, 17:15
Отправитель: Seiphirot
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Добрый день, Seiphirot!
Все зарезервированые слова лежат не в модуле, а в учебнике по Дельфи. Если Вы имеете в виду слова типа FOR, IF, REPEAT, то их орпеделений ни в одном модуле Вы не найдете, это Вам не функции :)).

---

Ответ отправлен: 25.05.2004, 10:24
Отправитель: sir henry

---

Отвечает Pawel

Приветствую Вас, Seiphirot!
Reserved Words в хелпе посмотри.

---

Ответ отправлен: 24.05.2004, 18:51
Отправитель: Pawel

---

Отвечает CrackLab

Приветствую Вас, Seiphirot!
В дельфи в хелпе есть тема Reserved Words. Вот что там написано:
The following reserved words cannot be redefined or used as identifiers.
and
array
as
asm
begin
case
class
const
constructor
destructor
dispinterface
div
do
downto
else
end
except
exports
file
finalization
finally
for
function
goto
if
implementation
in
inherited
initialization
inline
interface
is
label
library
mod
nil
not
object
of
or
out
packed
procedure
program
property
raise
record
repeat
resourcestring
set
shl
shr
string
then
threadvar
to
try
type
unit
until
uses
var
while
with
xor
In addition to the words above, private, protected, public, published, and automated act as reserved words within object type declarations, but are otherwise treated as directives. The words at and on also have special meanings.

---

Ответ отправлен: 24.05.2004, 18:24
Отправитель: CrackLab

---

Отвечает Boriss

Здравствуйте, Seiphirot!
%)) А зачем их вытаскивать? Пусть там и сидят.
А серьезно, купите учебник любой, а лучше хороший. Я считаю, что и английский и язык знаю, а всех ж пять учебников купил. Там сеют доброе.
Или у Вас какой-то замысел хитрый?

---

Ответ отправлен: 25.05.2004, 18:53
Отправитель: Boriss

---

Отвечает Snowm@n

Добрый день, Seiphirot!
help->reserved words

---

Ответ отправлен: 26.05.2004, 09:56
Отправитель: Snowm@n

---

Вопрос № 1560

Доброе время суток!
Помогите мне в таком деле:
1. Требуется создать невизуальный компонент, который будет
при изменений размеров формы менять пропорционально
размеры всех находящихя на нём др. визуальных компонентов.
Как это сделать?
2. Как события копмонентов создаваемых привязять к событию др. компнента?
Заранее всем спасибо, кто ответит!

---

Вопрос отправлен: 24.05.2004, 19:49
Отправитель: Roman
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Здравствуйте, Roman!
А зачем? Просто в обработчке события OnResize для заданной формы изменяйте размеры других форм. Для этого пропишите их модули в USES, посмотрите в VAR, как они называются и спокойно так изменяете. Тут одно только - не зациклитесь!
Это стандарнтый такой приемик ...
2) Уточнине: программно или во время разработки?

---

Ответ отправлен: 25.05.2004, 19:08
Отправитель: Boriss

---

Отвечает sir henry

Добрый день, Roman!
1. В свойстве OnResize формы отслеживайте коэффициент изменения формы и меняйте размеры других компонентов по этому коэффициенту. Зачем нужен невизуальный компонент при этом - совершенно непонятно. Но если он Вам нужен - дело Ваше :).
2. Нельзя ли переформулировать вопрос? Вы имеете в виду, как из событий одного компонента вызывать события другого компонента? Просто вызывайте и все :).

---

Ответ отправлен: 25.05.2004, 10:30
Отправитель: sir henry

---

Отвечает Snowm@n

Приветствую Вас, Roman!
OnResize просчитывать координаты.

---

Ответ отправлен: 26.05.2004, 09:54
Отправитель: Snowm@n

---

Вопрос № 1561

Уважаемые эксперты пожалуйста помогите:
Необходимо в СBuilder вывести на принтер PaintBox как это можно реализовать, а также копирование в буфер. На PaintBoxe рисую методом canvas.

---

Вопрос отправлен: 24.05.2004, 19:43
Отправитель: Андрей Зеленый (andreigreen@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Приветствую Вас, Андрей Зеленый!
1. У принтера есть такой-же Canvas. Делайте выводы :)).
Почитайте по ссылке:
http://www.comprice.ru/debug/2003-50.phtml
2. PaintBox в буфер - смотрите приложение.

Приложение:
var pbRect: TRect; begin pbRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height); BitMap := TBitMap.Create; try Bitmap.Width := PaintBox1.Width; Bitmap.Height := PaintBox1.Height; BitMap.Canvas.CopyRect(pbRect, PaintBox1.Canvas, pbRect); ClipBoard.Assign(BitMap); finally BitMap.Free; end; end;

---

Ответ отправлен: 25.05.2004, 10:55
Отправитель: sir henry

---

Отвечает Boriss

Здравствуйте, Андрей Зеленый!
sir henry все написал. Я только напомню, что в Builder вместо "дельфийской" точки (ю) ставьте ->. И все будет, как написано

---

Ответ отправлен: 25.05.2004, 19:10
Отправитель: Boriss

---

Вопрос № 1562

================--------------------
Я бы запускал проверку либо скачивание указанной страницы в отдельном потоке, одновременно запускал бы таймер на 5 секунд например. При срабатывании таймера я бы проверял как там дела с проверкой ..., и если дела плохо, то завершал бы поток и дальше уже выводил бы ответ -такого ресурса нет- или что угодно...
----------------=====================
А реализацию можно ?
Заранее благодарен!!!

---

Вопрос отправлен: 24.05.2004, 20:54
Отправитель: maDByte
[Следующий вопрос >>] [Список вопросов]

---

Отвечает CrackLab

Доброе время суток, maDByte!
Ну всю программу я писать не буду, хотя бы потому что последний раз я писал программу для работы с интернет года 2 назад и сейчас в упор не помню че там и как. Но могу подсказать как в Delphi создать поток, а вы уже впишете тело функции в потоковую процедуру.

---

Ответ отправлен: 24.05.2004, 21:11
Отправитель: CrackLab

---

---

Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (22) C / C++ (15) Perl (1) Builder / Delphi (17) Pascal (20) Basic / VBA (2) Java / JavaScript (4) PHP (12) Криптография (6) WinAPI (8) Радиоэлектроника (9)

Пользователю Windows 95/98/Me (35) Windows NT/2000/XP (49) "Железо" (29) Поиск информации (16)

Администратору Windows NT/2000/XP (21) Linux / Unix (7)

Юристу Гражданское право (10) Семейное право (8) Трудовое право (9) КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

---

http://subscribe.ru/ E-mail: ask@subscribe.ru

Отписаться Убрать рекламу

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}