Програмирование в Delphi

[AsIs]

Скинь почту в приват, до вечера отошлю.

[fat_sorcerer]

кто-нибудь делал замену HyperTerminal'а? А то вот в бошку взбрело, теперь мучаюсь. помогите, если можете.  

[k2kator]

кто-нибудь делал замену HyperTerminal'а? А то вот в бошку взбрело, теперь мучаюсь. помогите, если можете.

Пытаюсь, но кое с чем не совсем могу разобраться.  

[fat_sorcerer]

k2kator

Пытаюсь, но кое с чем не совсем могу разобраться.

С чем а то может чем я помогу?

[Taurus]

С чем а то может чем я помогу?

Я вот тут подумал(только подумал).Сразу возникла проблема.Как данные с одного компа на другой перекидывать,сам принцип.

[fat_sorcerer]

Как данные с одного компа на другой перекидывать,сам принцип.

У меня друг книгу в электронном виде выложил "Протоколы TCP/IP" [Для просмотра ссылки зарегистрируйтесь] если хочешь посмотри. А подключение сокетов и работа с ними не мало выложенно на [Для просмотра ссылки зарегистрируйтесь] (по крайней мере все статьи для себя я с него качал)

[Taurus]

У меня такая проблема хочу ,чтобы при открытиииз одной формы другую форму в модальном режиме (showmodal),та,из которой открывали могла бы работать(т.е. на фторой форме сделать кнопку отмена и при ее нажатии вторая убиралась,а первая работала )  

[--Griff--]

Люди, помогите!!! Диплом скоро, программа почти готова, остался сущий пустяк: Данные оформляются в Excel, все идет нормально и без глюков, но надо все это оформить рамкой, а как не знаю. Подскажите, как это сделать. Если будете писать текст проги, то пожалуйста перечислите модули необходимые для работы.

Заранее всем благодарен. Если кому надо исходник проги могу скинуть на E-mail.

У меня такая проблема хочу, чтобы при открытии из одной формы другую форму в модальном режиме (showmodal),та, из которой открывали, могла бы работать(т.е. на фторой форме сделать кнопку отмена и при ее нажатии вторая убиралась, а первая работала )

В событии, по нажатию кнопки отмена, напиши "Close;". Если первая форма заведомо находится на уровень выше, то все будет работать отлично.

[mr666]

fat_sorcerer
Я делал. Но тока файлы  хреново отсылалися. Есть способ такой: Типа файлы слать с помощю сокетов.

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   ClientSocket1: TClientSocket;
   ServerSocket1: TServerSocket;
   btnTestSockets: TButton;
   procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure ClientSocket1Disconnect(Sender: TObject;
     Socket: TCustomWinSocket);
   procedure ClientSocket1Connect(Sender: TObject;
     Socket: TCustomWinSocket);
   procedure ServerSocket1ClientConnect(Sender: TObject;
     Socket: TCustomWinSocket);
   procedure btnTestSocketsClick(Sender: TObject);
 private
   FStream: TFileStream;
   { Private-Deklarationen }
 public
   { Public-Deklarationen }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClientSocket1Read(Sender: TObject;
 Socket: TCustomWinSocket);
var
 iLen: Integer;
 Bfr: Pointer;
begin
 iLen := Socket.ReceiveLength;
 GetMem(Bfr, iLen);
 try
   Socket.ReceiveBuf(Bfr^, iLen);
   FStream.Write(Bfr^, iLen);
 finally
   FreeMem(Bfr);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FStream := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 if Assigned(FStream) then
 begin
   [Для просмотра ссылки зарегистрируйтесь];
   FStream := nil;
 end;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
 if Assigned(FStream) then
 begin
   [Для просмотра ссылки зарегистрируйтесь];
   FStream := nil;
 end;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
 FStream := TFileStream.Create('c:\temp\[Для просмотра ссылки зарегистрируйтесь].html', fmCreate or fmShareDenyWrite);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
 Socket.SendStream(TFileStream.Create('c:\temp\test.html', fmOpenRead or fmShareDenyWrite));
end;

procedure TForm1.btnTestSocketsClick(Sender: TObject);
begin
 ServerSocket1.Active := True;
 ClientSocket1.Active := True;
end;

end.

[Singur]

Огромнейшая просьба всем, кто сможет сделать такую фишку:
  Создать форму "Составные персонального компьютера",  имеющиеся составные выводить в StringGrid1 (№-Поставщик-Составная-Количество-Стоимость), предварительно разрешив редактирование Такой таблицы (в смысле StringGrid1 ). Во время работы пользователь может добавлять или стирать записи используя раздел Добавить/Стереть (GroupBox), в котором есть ComboBox1 (Поставщик), ComboBox2 (Составная), Edit1 (Количество) i Edit2(Стоимость) и 2 кнопочки Добавить и Стереть , а также ( что для меня оказалось трудновато) один SpinEdit. И при закрытии программы сохранять таблицу в файл *.dat  
Добавлено:
Sorry// Я ещё забыл, создать табличку (stringGrid) для поиска.  
Добавлено:
Помогите, пожалуйста, а то мне гаплык....   Нужно сдать контрольную. В долгу не останусь.