» Вопросы по Delphi

Spilberg
Спасиба за совет, сам уже розобрался, нужно біло лиш поставить несколько галочек в настройках и все.


Теперь ешо один вопрос:

При трасировке забегает в модули там всяких ЕрИксов и все такое, как избежать забегание в модули компонентов?
Чтобы бегало тока в модулях моих?

Solnake

Думаю нужно убрать исходники этих модулей или вычистить пути к ним, оставить только на dcu-шные файлы. А может что-то есть и в настройках, но не знаю. Мне это было не нужно.

Как получить имя директории с помощью OpenDialogs ? Или может быть есть другие методы? Мне необходимо визуально показать структуру диска и дать возможност выбрать директорию.

STEEL

Цитата:

Как получить имя директории с помощью OpenDialogs ? Или может быть есть другие методы? Мне необходимо визуально показать структуру диска и дать возможност выбрать директорию.

Если я правильно понял:
Есть такие еще вещи:
TShellTreeView (во вкладке Samples) - (получается как в проводнике)

А нужно просто выбрать или еще и создавать?

Попробуй уточнить конкретнее.

А где можно найти такие компонентики tsocketclient, tsocketserver или они нынче не в моде? воощем подскажите что-нибудь для работы в локалке, начинаю только

STEEL

Цитата:

дать возможност выбрать директорию.

SelectDirectory() из модуля FileCtrl (насколько помню)

Вопрос. Как под WinXP узнать серийный номер процессора, материнки и/или жесткого диска (не логического, а заводской номер физического устройства).

Друзья,

нужен ли чайнику Delphi 2005? Может D7 ограничиться, или в D9 есть какие-то очень важные нововведения, которые лучше знать с самого начала?

Уж больно эта дура большая и тяжелая....

BBMike
ограничся D7, основные нововведения относятся к .NET. а чего-то супер глобального "которое лучше знать с самого начала" я со времен d5 не припомню.

Spilberg

Цитата:

узнать серийный номер процессора

а Delphi здесь причем?

BBMike

Цитата:

нужен ли чайнику Delphi 2005?

нет

Almaz


Цитата:

Цитата: узнать серийный номер процессора

а Delphi здесь причем?

Spilberg

Цитата:

серийный номер процессора, материнки

начни отсюда http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=698

hog

Цитата:

начни отсюда http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=698

для этого примера надо будет установить WMI SDK, а весит она как крыло от самолёта....

Нет ли у кого RX Lib для Delphi 2005 ?

alexist
Лучше установи Jedi, там он уже есть. Правда имена прийдётся чуточку поправить.

Almaz

Цитата:

а Delphi здесь причем?

Притом, что программа пишется на Delphi

Spilberg
Для номера проца. Дарю
http://marushev.net.ua/tmp/cpuid.rar
Там исходники.

Спасибо.

Олл, да подскажите же наконец, какие вы компоненты пишете для написания клиет-серверных приложений по средствам TCP/IP

hog
Almaz
спасибо, друзья. я так и думал

STEEL

Цитата:

Олл, да подскажите же наконец, какие вы компоненты пишете для написания клиет-серверных приложений по средствам TCP/IP

В смысле сами пишем или юзаем готовые? Если первое, то я обычно юзаю второе . Народ рекомендует Indy, но это в Дельфи не ниже 6 (возможно 7).

STEEL
Посмотри тут. Неплохой набор под название "Internet Component Suite" с исходниками и примерами.

Сам я не программист. Очень помощи прошу. Чтение из текстового файла данных для построения графиков. Но в файле в строке первая и вторая переменные Date и Time. Пример записи в файле.

Код: 22.03.2005 17:35:18 0.300 100.000 100.000 23.000 0.400 100.000 100.000 34.000 0.450 100.000 100.000 36.000
25.03.2005 18:07:42 0.351 100.000 100.000 24.000 0.351 100.000 100.000 26.000 0.400 100.000 100.000 14.000

DUMAND
Поставь точку останова (breakpoint) на начале цикла и потом по F7 пройдись по циклу выведя в окно Add Watch переменные S и S1. Увидишь, где у тебя S1 не может быть преобразована в нумерик.

DUMAND
я не совсем понял смысла вот этой строчки:

Цитата:

readln(f,lostr,lred,lgreen,ldis,rostr,rred,rgreen,rdis,bostr,bred,bgreen,bdis);

кроме того, вместо функций преобразования советую использовать их модификации с предопределенным значением: strToDateDef, StrToTimeDef, StrToFloatDef. по крайней мере, ты избежишь сообщений об ошибках преобразования типов.

DUMAND
Функция ReadLN - читает ВСЮ строку, тебе же надо readln(f,S); заменить на read(f,S);
Вот и все

Большое спасибо. Но я врач, а не программист. Поэтому для меня все это трудно.
К тому же в Delphi вышла ошибка "debugger kernel bordbk70.dll is missing or not registered". Я два часа разбирался с этим. Но сделал . Теперь ошибок нет.
Но графики не строятся. Как я понимаю, остальные данные теперь в ArVar[i]. А как их прочитать и построить график по аналогии со старым алгоритмом:


Код: readln(f,lostr,lred,lgreen,ldis,rostr,rred,rgreen,rdis,bostr,bred,bgreen,bdis);
series1.AddXY(n, rostr,'',clblue);
series2.AddXY(n, lostr,'',clgreen);
series3.AddXY(n, bostr,'',clred);

DUMAND
Вот что получилось, если я правильно понял проблему (по-простому, чтобы так как почти было):

Цитата:

unit Unit_222;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
TForm1 = class(TForm)
Chart1: TChart;
BitBtn1: TBitBtn;
Series1: TLineSeries;
Series2: TLineSeries;
Series3: TLineSeries;
procedure BitBtn1Click(Sender: TObject);

// procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n,lbt,ldt,lbtd,ldtd,laoa,rbt,rdt,rbtd,rdtd,raoa,bbt,bdt,bbtd,bdtd,baoa:double;
lostr,lred,lgreen,ldis,rostr,rred,rgreen,rdis,bostr,bred,bgreen,bdis:double;

implementation

{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
F: TextFile;
StrBuf: String[20];
begin
DecimalSeparator := '.';
AssignFile(f,'users/Eyes.txt');
Reset(f);
n:= 0;
while not EOF(f) do begin
n:= n + 1;
readln(f ,StrBuf, lostr,lred,lgreen,ldis,rostr,rred,rgreen,rdis,bostr,bred,bgreen,bdis);
series1.AddXY(n, rostr,'',clblue);
series2.AddXY(n, lostr,'',clgreen);
series3.AddXY(n, bostr,'',clred);
end;
CloseFile(f);
end;

end.

Если я правильно понял, дата и время не нужно вообще, но если в файле они задаются в строгом формате (дата 10 символов ТАВ время 8 символов ТАВ), то можно считывать их как строку StrBuf[20] - 10 + 1 + 8 + 1. А далее все значения.

В общем, работает код.

ShIvADeSt

Цитата:

Народ рекомендует Indy, но это в Дельфи не ниже 6 (возможно 7).

Не так всё плохо - вот тут английским по белому перечислена поддержка для:

# Delphi 4 - 7
# Delphi 2005 (including Personal Edition)
# C++ Builder 4 - 6
# Kylix.

Правда, ICS поддерживает, НЯП, вообще все существующие версии Delphi и BCB, но это так, к слову .

Так, а теперь бы хотелось компонентики для работы с SMTP, POP3, также с помощью чего можно было бы резбивать файлы на части? Что-то типа split, как в юниксе. Или как в архиваторах, например winrar, файл рубится на части.