Программа для общения, передачи файлов и удалённого управления в Delphi

@HALF-LIFE · Регистрация: 18.07.2013

Author24 — интернет-сервис помощи студентам

Уважаемые программисты! Я хочу создать программу для общения, передачи файлов и удалённого управлениям по локальной сети в Delphi. Программа как для общения она у меня получилась но проблемы с передачей файлов. Помогите решить эту проблему. Если смогу сделать передачу файлов то и получиться создать удалённое управление компьютером. Но не надо спрашивать зачем я это делаю если такие программы уже есть. Не судите строго мой код я новичок в Delphi и поэтому у меня получается громоздкие коды. Я пока оптимизацией не занимаюсь.

Вот то что я сделал.

@HALF-LIFE · 22.07.2013, 16:13 **[ТС]**

Дело в том что Delphi может показывать как он переводит код программный на машинный т.е. ассемблер что бы компьютер мог его выполнить и там можно посмотреть в каком месте произошла ошибка т.е. при выполнении кода произошла ошибка.

Добавлено через 2 минуты
На данный момент я делаю программу удаленное управление и у меня задался вопрос можно как то из Stream вывести изображение на Image.

@mss · 22.07.2013, 16:37

Сообщение от HALF-LIFE

Delphi может показывать как он переводит код программный на машинный т.е. ассемблер что бы компьютер мог его выполнить и там можно посмотреть в каком месте произошла ошибка т.е. при выполнении кода произошла ошибка

Зачем тебе туда лезть, в машкоды эти ?
Что ты там хочешь увидеть такого, чего якобы нельзя увидеть на уровне пошагового исполнения исходных операторов Delphi-программы ?

Если у тебя, к примеру, ф-ция FileExists(строковая_переменная_с_именем_файла) вернула False, притом что файл заведомо где-то там существует и ожидалось True, то накой шиш тебе лезть в машкод ?

@HALF-LIFE · 22.07.2013, 16:52 **[ТС]**

Короче забыли. Кстати я нашел как из String вывести изображение на Image вот код:

Delphi

uses jpeg;
 
  var
      Stream: TMemoryStream; //Загруженное изображение
      jpeg: TJPEGImage;
begin
    jpeg:=TJPEGImage.Create;
    jpeg.LoadFromStream(Stream);
    jpeg.SaveToFile(FileName);
    image1.picture.loadfromfile(FileName);
    jpeg.Free;
  end;

Добавлено через 9 минут
Извините совершил ошибку Image не может загрузить изображение из Stream из-за этого надо делать так:

Delphi

uses jpeg;
 
var
  Stream: TMemoryStream; //Загруженное изображение
  jpeg: TJPEGImage;
begin
    jpeg:=TJPEGImage.Create;
    jpeg.LoadFromStream(Stream);
    Image1.Picture.Assign(jpeg);
    jpeg.Free;
end;

Добавлено через 49 секунд

Сообщение от HALF-LIFE

Кстати я нашел как из String вывести изображение на Image вот код:

Как из Stream вывести изображение на Image

@HALF-LIFE 0 / 0 / 0 Регистрация: 18.07.2013 Сообщений: 33
	22.07.2013, 16:13 [ТС]	21
	Дело в том что Delphi может показывать как он переводит код программный на машинный т.е. ассемблер что бы компьютер мог его выполнить и там можно посмотреть в каком месте произошла ошибка т.е. при выполнении кода произошла ошибка. Добавлено через 2 минуты На данный момент я делаю программу удаленное управление и у меня задался вопрос можно как то из Stream вывести изображение на Image. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	22.07.2013, 16:37	22
	Сообщение от HALF-LIFE Delphi может показывать как он переводит код программный на машинный т.е. ассемблер что бы компьютер мог его выполнить и там можно посмотреть в каком месте произошла ошибка т.е. при выполнении кода произошла ошибка Зачем тебе туда лезть, в машкоды эти ? Что ты там хочешь увидеть такого, чего якобы нельзя увидеть на уровне пошагового исполнения исходных операторов Delphi-программы ? Если у тебя, к примеру, ф-ция FileExists(строковая_переменная_с_именем_файла) вернула False, притом что файл заведомо где-то там существует и ожидалось True, то накой шиш тебе лезть в машкод ? 0

	22.07.2013, 16:52