본문 바로가기

반응형
SMALL

델파이

firemonkey에서 블루투스 시리얼 송수신 코드. 클래식 블루투스 Delphi와 FireMonkey를 사용하여 클래식 블루투스를 통해 데이터를 송수신하는 방법을 알려드릴게요. 이 작업은 디바이스에서 블루투스를 지원해야하며, 추가로 Delphi에서 TBluetoothManager와 TBluetoothDeviceList를 사용해야 합니다. Delphi에서 블루투스 기능을 사용하기 위해 아래의 코드를 참고해 주세요: uses System.Bluetooth; var FManager: TBluetoothManager; FPairedDevices: TBluetoothDeviceList; FAdapter: TBluetoothAdapter; FDevice: TBluetoothDevice; FService: TBluetoothService; FSocket: TBluetoothServe.. 더보기
Wifi 카메라 실시간 스트리림-chatGPT IP카메라나 WIFI 카메라의 영상을 내가 만든 안드로이드 앱안에 영상을 실시간으로 띄우고 싶은데 잘 안되서 ChatGPT에게 물어봤다. - 요즘 대세가 ChatGPT 잖아~ RTSP를 이용해서 실시간 영상을 앱으로 만들었지만 딜레이가 2초이상 발생하여 사용할 수가 없다. 내가 원하는 것은 200msec 이내의 딜레이.... 여하든 아래는 ChatGPT가 답변한 내용이다. Delphi를 사용하여 WiFi 카메라에 연결하고 200ms 이하의 지연으로 실시간 비디오 재생을 달성하는 Android 앱을 만들려면 다음 단계를 고려하십시오. 카메라 연결: 앱을 WiFi 카메라에 연결하려면 카메라의 API 또는 SDK를 사용하여 IP 주소 또는 다른 식별자를 통해 연결을 설정해야 합니다. 대기 시간이 짧은 스트리밍.. 더보기
실수 올림 / 내림 uses에 Math 추가 올림 : Ceil() 내림 : Floor() value := 3.14; value := Ceil(value); // 4 value := Floor(value); //3; 더보기
ChatGPT API 사용하기 참고 자료 https://welcome.devgear.co.kr/topic/963-%EB%8D%B8%ED%8C%8C%EC%9D%B4%EB%A1%9C-%EB%A7%8C%EB%93%A0-chatgpt-%ED%94%84%EB%A1%9C%EC%A0%9D%ED%8A%B8-%EC%83%98%ED%94%8C-%EC%86%8C%EA%B0%9C/ 델파이로 만든 ChatGPT 프로젝트 샘플 소개. ChatGPT 에서 제공하는 Open API 를 활용하면 델파이로 ChatGPT 앱을 쉽게 만들 수 있습니다. 최근에는 한글로 질문 답변이 가능해져서 번역기를 사용하지 않고도 바로 한글로 질문을 하고 한글로 답변 welcome.devgear.co.kr 한글로 질문하면 한글로 대답해 주지만 느리기 때문에 파파고로 영어로 번역 후 .. 더보기
Polyfit - 다차항 보상 When you make measured data from Excel into a line chart and identify the characteristics of this data, you can create a trend line to analyze it and predict what the result value will look like when there is a value between the measured data. At this time, there are multiple-order terms among the functions of the trend line. This can be obtained by Delphi code. 측정된 데이터를 엑셀에서 라인차트로 만들고 이 데이터의 특성.. 더보기
stringgrid를 마우스로 드레그하여 선택한 다음 병합하는 코드 마우스로 StringGrid 드래그를 구현한 다음 선택한 셀을 병합하려면 OnMouseDown, OnMouseMove 및 OnMouseUp 이벤트를 사용하여 마우스 이동을 추적하고 사용자가 선택한 셀을 확인할 수 있다. var Dragging: Boolean; DragRect: TRect; MergeLeft, MergeTop: Integer; MergeText: string; procedure TForm1.GridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Button = mbLeft) and not (ssShift in Shift) then begin Dragging := Tru.. 더보기
stringgrid의 셀 병합하는 코드 Delphi StringGrid에서 셀을 병합하려면 OnDrawCell 이벤트를 사용하여 셀의 모양을 사용자 지정하고 병합된 셀처럼 보이게 할 수 있다. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Grid: TStringGrid; Text: string; R: TRect; I, J: Integer; begin Grid := Sender as TStringGrid; if (ACol = 1) and (ARow = 1) then begin // Draw the merged cell Grid.Canvas.Font := Grid.Font; Grid.C.. 더보기
stringgrid에 체크박스 삽입하는 코드 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Grid: TStringGrid; CheckBoxRect: TRect; begin Grid := Sender as TStringGrid; // Set checkbox for cell in column 2 if ACol = 2 then begin CheckBoxRect.Left := Rect.Left + ((Rect.Right - Rect.Left) - 13) div 2; CheckBoxRect.Top := Rect.Top + ((Rect.Bottom - Rect.Top) - 13) div 2; Che.. 더보기

반응형
LIST