» Вопросы по Delphi 2

Sapd

Цитата:

Помогите, нужны файлы для использования IP Helper
IpExport.pas, IpIfConst.pas, IpRtrMib.pas, IpTypes.pas

http://www.delphi-jedi.org/
Более точно: ftp://ftp.delphi-jedi.org/api/IPHlpAPI.zip
P.S. Все freeware opensource.

есть ли в дельфе аналог PHP функции
array explode ( string separator, string string [, int limit] )
?

Посоветуйте прозрачный листбокс, пожалуйста.

jsnjack

Цитата:

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

Используй ShellExecute (тогда оболчка сама откроет пдфку в акробате).

andead

Цитата:

array explode

TStringList
property Delimiter: Char
property DelimitedText: string;
property QuoteChar;

--

myStringList.Delimiter := ';';
myStringList.QuoteChar := '"'; // при надобности
myStringList.DelimitedText := ...

for i := 0 to myStringList.Count - 1 do
...

народ подскажите плиз в общем у меня дельфи выдает ошибку на любой проге
[Error] Unit1.pas(34): Statement expected but 'PROCEDURE' found

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TfmExample = class(TForm)
Panel1: TPanel;
bbrun: TBitBtn;
bbClose: TBitBtn;
edInput: TEdit;
lbOutput: TLabel;
mmOutput: TMemo;
BbResult: TBitBtn;
procedure bbrunClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fmExample: TfmExample;


implementation

{$R *.dfm}
Begin

procedure TfmExample.bbrunClick(Sender: TObject);
begin
lbOutput.Caption:=edInput.Text;
mmOutput.Lines.Add(edInput.Text);
edInput.Text:='';
edInput.SetFocus;

end;

end.

procedure TfmExample.bbrunClick(Sender: TObject); - вот на этой строке и материцца

это пример тупой учебной проги
самый прикол еще 2-3 дня назад - она нормально компилилась без проблем

а теперь ни одна прога ни компилица - ругается вот так на разные процедуры

Meydzin
Убери Begin между {$R *.dfm} и procedure TfmExample.bbrunClick(Sender: TObject);

OXDBA
вот я тормоз!!!!

Как можно реализовать следующую функцию - картинки(фотографии) должны быть не в графическом формате(gif, jpeg, bmp и др.), а, например, в dll и что-то подобном. Т.е. каринки будут хранится в dll файлах. А программа должна их открывать в TImage. Как это можно реализовать?

Делать ресурсную DLL-ку, как в виндовсе в SHELL32.dll или PIFMGR.DLL

Добавлено:
а потом делать что-то типа

Цитата:

var
AModule: THandle;
begin
AModule := LoadLibrary('Images.dll');
image1.Picture.BitMap.LoadFromResourceName(AModule, 'StartMine');
FreeLibrary(AModule);
end;

p.s. пример из DRKB (www.drkb.ru)

а подскажите какой компонент работает с базой данных OpenOffice? файл данных имеет расширение odb

Подскажите... Может ли такое быть: програмка нормально работает на простых оффисных 4-х пеньках, но не работает на навороченном пентиум D, с 2-мя гигами оперативы, нвидиа вроде 7800 ... вроде того...
о программе:
Сперва должна загрузиться карта города (тут и зависает), а потом на нее добавляются объекты, которые присылают свои координаты на сервер...

asid_esh
Ну раз зависает, значит может хотя для чистоты эксперимента хорошо бы проверить на другой машине с похожей комплектацией - мало ли, вдруг все-таки железо сбойное попалось
А
Цитата:

Сперва должна загрузиться карта (тут и зависает)

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

Еще есть такая тема как удаленная отладка в делфи, но надо что бы кто то сидел за тем компом где запускается приложение. Эту проблему можно решить радмином или другим терминалом.

ArtemiyUO

Цитата:

Еще есть такая тема как удаленная отладка в делфи,

Не подскажешь где про это прочитать можно?

vserd

Цитата:

Не подскажешь где про это прочитать можно?

Можно в справке:
Д7 - в индексе "remote debugging"
Д2006 - в содержании Borland Help \ Developer Studio 2006 (Common) \ Procedures \ Debugging Procedures \ Debugging Remote Applications

Цитата:

компонент работает с базой данных OpenOffice

Не знаю есть ли компонент , но у OpenOffice есть своё API SDK.
Попробуй погуглить

_http://marketing.openoffice.org/ooocon2004/presentations/friday/developerplatform.pdf

Есть такой код:

Код:
program Test;
begin
...
if CreateProcess(nil, pChar(sExeName), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
...
end.

Chef

Цитата:

Пока существует процесс нужно ловить определённое сообщение (WM_). Подскажите пожалуйста, как это реализовать?

Вынести в отдельный поток или просто запустить процесс и по таймеру проверять не завершился ли он через GetExitCodeProcess

Darken
TurboPower где могу найти? Тоже есть потребность в защите от несанкционированного копирования

VadimLou
Попробовал [more=так]

Код:
hThread := BeginThread(nil, 0, @TestThread, nil, 0, ThId);
while Runing do
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
OutputDebugString(pChar(IntToStr(Msg.message)));
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
Sleep(100);
end;
TerminateThread(hThread, 0);

ClientDataSet1.EmptyDataSet() не отрабатывает. почему?

вот кусок кода, который просто должен отчистить ClientDataSet1 и добавить одну запись.

[more]
with unit9.Form9.ClientDataSet1 do
begin
unit9.Form9.ClientDataSet1.EmptyDataSet();
last;
insert;
unit9.Form9.ClientDataSet1['id_a']:=id;
unit9.Form9.ClientDataSet1['kanals']:=n;
unit9.Form9.ClientDataSet1['summa']:=summ;
unit9.Form9.ClientDataSet1['posle']:=posle;
post;
unit9.Form9.ClientDataSet1.ApplyUpdates(0);
end;
[/more]

в результате получаю старую таблицу, у которой в конце добавлена новая запись. т.е. не отчищается старое.

пробовал до и после EmptyDataSet() выводить

showmessage(inttostr(unit9.Form9.ClientDataSet1.RecordCount));

и видно, что число записей — обнуляется. даже после ApplyUpdates(0); он пишет, что 1 запись в датасете.
однако в дальнейшем, когда открываю таблицу в редакторе, то все записи старые на своём месте + 1 новая, которую и записали.

почему так? чего ему не хватает?
заранее спасибо.

зы. пишу на делфи 7

sas_koval
rtfm MergeChangeLog & LogChanges

Код:
//after open
LogChanges := False;

Цитата:

vshersh

тогда

Код:
with unit9.Form9.ClientDataSet1 do
begin
unit9.Form9.ClientDataSet1.LogChanges:=false;
unit9.Form9.ClientDataSet1.EmptyDataSet();
end;

Chef

Цитата:

Попробовал так

по мойму потому что в треде не было создано ни одного win контрола.
А вообще лучше юзать TThread ...

Цитата:

потому что в треде не было создано ни одного win контрола

точно Спасибо.

На форме есть поле ввода и одна кнопка. В поле вводится шестнадцатиричное число (к примеру $0000B4), а при нажатии на кнопку его нужно использовать в качестве первого параметра функции Seek. Как это сделать?

S0ldier
StrToInt(Edit1.Text)

RomanTim
Ну-ну Мне совсем другое нужно.

Люди помогите. Очень нужен Berg NextSheet...